修改"开始" VBS的快捷方式属性框?

时间:2015-03-28 20:08:28

标签: batch-file vbscript cmd

我正在尝试创建一个基本的安装程序,但我遇到了快捷方式的问题。安装程序工作正常,但程序拒绝启动创建的快捷方式,因为它缺少“开始”框信息,我将如何将此信息用于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%

1 个答案:

答案 0 :(得分:1)

根据the Docs,您应该设置.WorkingDirectory,或许类似

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

为了保存,我会避免向后反斜杠和需要扩展的变量 - 如

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