Question

操作系统：Windows7

我正在尝试通过批处理创建指向桌面文件夹的链接，如下所示：

mklink "%userprofile%\Desktop\MyExe" "%~dp0\MyExe.exe"

该命令有效，但如何指出MyExe.exe在"%~dp0"处执行？ MyExe.exe看起来像在当前文件夹中运行，因此无法加载我的配置文件。

更新

通过使用VBS获得了不同的问题，在下面运行代码将创建一个快捷方式对于C:\Users\jiu\Desktop\MyExe.exe，但我想要MyExe.exe。

Set oWS = WScript.CreateObject("WScript.Shell")
userProfilePath = oWS.ExpandEnvironmentStrings("%UserProfile%")
currParentFolder = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
linkPath = userProfilePath + "\Desktop\MyExe.LNK"
Set oLink = oWS.CreateShortcut(linkPath)
    oLink.TargetPath = "MyExe.exe" 
    oLink.WorkingDirectory = currParentFolder
oLink.Save

Answer 1

根据您提供的信息，这是一个奇怪的批处理文件，应该为您创建桌面快捷方式：

;@Rundll32 AdvPack.dll,LaunchINFSection "%~0",,1
;@GoTo :EOF
[Version]
Signature="$Windows NT$"
[DefaultInstall]
ProfileItems=AddLnk
[AddLnk]
Name="MyExe",8,16
CmdLine=1,,"MyExe.exe"
InfoTip="Execute MyExe.exe"
WorkingDir=1

您可以选择修改：

快捷方式通过替换8行上双引号内的字符串来显示名称。
目标可执行文件的名称
，方法是替换9行上双引号内的字符串。
快捷键描述注释通过替换行10上双引号内的字符串。

Answer 2

mklink不会创建*.lnk 快捷方式，而是symbolic/hard link，它只是物理文件的新名称。由于链接在桌面上，如果双击文件

，显然当前文件夹将是桌面

您必须创建shortcut。一种方法是使用下面的vbs脚本

Set oWS = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
sLinkFile = strDesktop & "\MyExe.lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)

oLink.TargetPath = WScript.Arguments(0) & "\" & WScript.Arguments(1)
'  oLink.Arguments = ""
'  oLink.Description = "MyExe"
'  oLink.HotKey = "ALT+CTRL+F"
'  oLink.IconLocation = WScript.Arguments(0) & "\" & WScript.Arguments(1) & ", 2"
'  oLink.WindowStyle = "1"
   oLink.WorkingDirectory = WScript.Arguments(0)
oLink.Save

将其另存为，然后调用

cscript "%~dp0" "MyExe.exe"

您也可以从powershell or various other tools

创建它

$objShell = New-Object -ComObject WScript.Shell
$lnk = $objShell.CreateShortcut("$home\Desktop\MyExe.lnk")
$lnk.TargetPath = ".\MyExe.exe"
$lnk.Save()

Answer 3

我发现：

Set oWS = WScript.CreateObject("WScript.Shell")
userProfilePath = oWS.ExpandEnvironmentStrings("%UserProfile%")
currParentFolder = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
linkPath = userProfilePath + "\Desktop\MyExe.LNK"
targetPath = currParentFolder + "\MyExe.EXE"
Set oLink = oWS.CreateShortcut(linkPath)
    oLink.TargetPath = targetPath
    oLink.WorkingDirectory = currParentFolder
oLink.Save

如何为可执行文件创建链接并以批处理或vbs指示工作文件夹

3 个答案: