版本一：

? ? ? ? ?set WshShell = WScript.CreateObject("WScript.Shell") ?'設置CreateObject 方法

? ? ? ? ?strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路徑

? ? ? ? ?set oShellLink = WshShell.CreateShortcut(strDesktop & "\騰訊QQ.lnk") ?'設置快捷方式將要保存到的路徑和快捷方式名,你也可以指定一個真實存在的路徑，這個范例是創建到桌面

? ? ? ? ?oShellLink.TargetPath = "d:\qq\QQ***清除.vbs" '快捷方式里的“目標”

? ? ? ? ?oShellLink.WindowStyle = 1 ?'快捷方式里的“運行方式”

? ? ? ? ?oShellLink.Hotkey = "Ctrl+Alt+e" ?'快捷方式里的“快捷鍵”

? ? ? ? ?oShellLink.IconLocation = "d:\qq\qq.exe, 0" ?'快捷方式的圖標

? ? ? ? ?oShellLink.Description = "騰訊QQ" ?'快捷方式里的“備注”

? ? ? ? ?oShellLink.WorkingDirectory = "d:\qq" ?'快捷方式里的“起始位置”

? ? ? ? ?oShellLink.Save '建立快捷方式

版本二：

? ? ? ? 如果是創建程序的快捷方式，以下代碼即可：

? ? ? ? ?set WshShell = WScript.CreateObject("WScript.Shell") ?'設置CreateObject 方法

? ? ? ? ?strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路徑

? ? ? ? ?set oShellLink = WshShell.CreateShortcut(strDesktop & "\騰訊QQ.lnk") ?'設置快捷方式將要保存到的路徑和快捷方式名,你也可以指定一個真實存在的路徑，這個范例是創建到桌面

? ? ? ? ?oShellLink.TargetPath = "d:\qq\QQ***清除.vbs" '快捷方式里的“目標”

? ? ? ? ?oShellLink.WorkingDirectory = "d:\qq" ?'快捷方式里的“起始位置”

? ? ? ? ?oShellLink.Save '建立快捷方式?

轉載于:https://blog.51cto.com/martin001/1533248

總結

以上是生活随笔為你收集整理的VBS建立快捷方式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。