Windows含空格路径下VB脚本无法创建快捷方式，求解决方案

问题分析 #

原VBS脚本无法在带空格的Start Menu路径下创建快捷方式，核心原因是VBS不识别CMD风格的%ProgramData%环境变量语法，直接传入带%的路径会被当作字面路径解析，导致实际路径不存在，加上空格的影响，最终创建失败。

修正后的VBS代码 #

Set sh = CreateObject("WScript.Shell")
' 展开系统环境变量，生成正确的带空格路径
Dim shortcutPath
shortcutPath = sh.ExpandEnvironmentStrings("%ProgramData%\Microsoft\Windows\Start Menu\Programs\MyApplication.lnk")
Set startupShortcut = sh.CreateShortcut(shortcutPath)
startupShortcut.IconLocation = "C:\Users\MyUser\MyApplication\resources\MyApplication.ico"
startupShortcut.TargetPath = "C:\Users\MyUser\MyApplication\MyApplication-1.4.4.jar"
startupShortcut.WorkingDirectory = "C:\Users\MyUser\MyApplication"
startupShortcut.Save

关键修改说明 #

• 使用sh.ExpandEnvironmentStrings()方法将%ProgramData%展开为实际系统路径（如C:\ProgramData），确保路径被正确解析。
• 生成的带空格路径会被VBS正确识别，无需额外转义，因为CreateShortcut方法接受合法的路径字符串。

额外注意事项 #

• 运行脚本的用户必须拥有C:\ProgramData\Microsoft\Windows\Start Menu\Programs目录的写入权限，否则会因权限不足创建失败。
• 批处理调用VBS时，若VBS脚本路径本身带空格，需用引号包裹路径，示例命令：

  cscript //nologo "C:\My Scripts\create_shortcut.vbs"
  

内容的提问来源于stack exchange，提问作者SGP