yakeyun

回复 3# yyz219

Set WshShell = WScript.CreateObject("WScript.Shell")
' 确保保存快捷方式的目录存在，路径需调整为实际有效地址
strShortcutPath = "D:\你的实际桌面路径\还原百分等.lnk"
Set oShellLink = WshShell.CreateShortcut(strShortcutPath)
oShellLink.TargetPath = "C:\Windows\explorer.exe"
oShellLink.Arguments = "D:\1绿色软件\网络\浏览器\还原百分等"
oShellLink.Save
复制代码