使用VBS为文件添加快捷方式

以放置到桌面上为例

 

Set objShell = CreateObject("Wscript.Shell") strDesktop = objShell.SpecialFolders("Desktop") '获取桌面目录 Set objShellLink = objShell.CreateShortcut(strDesktop & "/快捷方式.lnk") '快捷方式名称 objShellLink.TargetPath = "%ProgramFiles%/example/example.exe" '目标的绝对或相对路径 objShellLink.Description = "启动example" '快捷方式描述 objShellLink.WorkingDirectory = objShell.CurrentDirectory '起始位置(工作目录) objShellLink.Save '生成快捷方式