主页 / computer / 问题 / 1699096
Accepted
acgbox
Asked: 2022-01-14 09:43:34 +0800 CST

如何使用 vbs 将快捷方式发送到公共桌面

  • 772

按照ss64的说明，我创建了一个 vbs 来创建快捷方式

我的test.vbs

Set objShell = WScript.CreateObject("WScript.Shell")
   Set lnk = objShell.CreateShortcut("%HOMEDRIVE%\Users\Public\Desktop\test.lnk")
   
   lnk.TargetPath = "%HOMEDRIVE%\test\start.bat"
   lnk.Arguments = ""
   lnk.Description = "test"
   lnk.HotKey = "ALT+CTRL+F"
   lnk.IconLocation = "%HOMEDRIVE%\test\test.ico, 0"
   lnk.WindowStyle = "1"
   lnk.WorkingDirectory = "%HOMEDRIVE%\test\"
   lnk.Save
   'Clean up 
   Set lnk = Nothing

出去

Error: Could not save shortcut
"c:\test\%HOMEDRIVE%\Users\Public\Desktop\test.ink"

如果我将快捷方式的路径从更改"%HOMEDRIVE%\Users\Public\Desktop\test.lnk"为仅在文件夹test.ink内成功创建快捷方式test

如何在路径中创建快捷方式"%HOMEDRIVE%\Users\Public\Desktop\test.lnk"？

windows shortcuts

1 个回答

  1. Best Answer

    解决了。这是正确的 vbs 代码

    Set objShell = CreateObject("Wscript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
Set objShortcut = objShell.CreateShortcut(strDesktop & "\test.lnk")
objShortcut.TargetPath = "%HOMEDRIVE%\test\start.bat"
objShortcut.Description = "Start test"
objShortcut.WorkingDirectory = strDesktop
objShortcut.IconLocation = "%HOMEDRIVE%\test\test.ico, 0"
objShortcut.Save

    资料来源：social.technet.microsoft.com

    • 0

相关问题