用VBS修改快捷方式的"Start in"属性框？

Question

我正在尝试创建基本安装程序，但在使用快捷方式时遇到了问题。安装程序工作正常，但程序拒绝以创建的快捷方式启动，因为它缺少 "Start in" 框信息，我将如何将此信息放入 VBS？

这是我目前所拥有的，快捷方式已创建，其他一切都很好，代码也适用于其他 .exe 并且可以正常启动它们，只是不适用于这个程序：

set MYPATH=%CD%
set SCRIPT="%TEMP%\%RANDOM%-%RANDOM%-%RANDOM%-%RANDOM%.vbs"

echo Set oWS = WScript.CreateObject("WScript.Shell") >> %SCRIPT%
echo sLinkFile = "%USERPROFILE%\Desktop\Shortcut.lnk" >> %SCRIPT%
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %SCRIPT%
echo oLink.TargetPath = "%mypath%/Myexe.exe" >> %SCRIPT%
echo oLink.Save >> %SCRIPT%
cscript /nologo %SCRIPT%
del %SCRIPT%

编辑：如果有人需要创建快捷方式，这里是完成的工作脚本：

set MYPATH=%CD%
set SCRIPT="%TEMP%\%RANDOM%-%RANDOM%-%RANDOM%-%RANDOM%.vbs"

echo Set oWS = WScript.CreateObject("WScript.Shell") >> %SCRIPT%
echo sLinkFile = "%USERPROFILE%\Desktop\My Shortcut.lnk" >> %SCRIPT%
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %SCRIPT%
echo oLink.TargetPath = "%mypath%/MyExe.exe" >> %SCRIPT%
echo olink.WorkingDirectory = "%mypath%" >> %SCRIPT%
echo oLink.Save >> %SCRIPT%
cscript /nologo %SCRIPT%
del %SCRIPT%

Answer 1

根据 the Docs，你应该设置 .WorkingDirectory，也许像

echo oLink.WorkingDirectory = "c:\path\to\folder" >> %SCRIPT%

为了省事，我会避免使用反斜杠和需要扩展的变量 - 如

echo oLink.TargetPath = "%mypath%/Myexe.exe" >> %SCRIPT%

用VBS修改快捷方式的"Start in"属性框？

Modify "Start in" properties box of shortcut with VBS?

vbscript

cmd

batch-file