如何使用 Windows 腳本主機建立桌面快捷方式

本文說明如何從 Visual FoxPro 內使用 Microsoft Windows 腳本主機 (WSH) 建立桌面快捷方式。

適用於：Windows 10 - 所有版本，Windows Server 2012 R2
原始 KB 編號： 244677

摘要

WSH 是一種工具，可讓您在 Windows 95 或 Windows NT 4.0 上，以原生方式在基底操作系統內執行 Microsoft Visual Basic Scripting Edition 和 JScript。 它也包含數種 COM 自動化方法，可讓您透過 Windows 腳本主機物件模型輕鬆地執行數個工作。 Microsoft Windows 腳本主機已整合到 Windows 98、Windows 2000 和更新版本的 Windows 操作系統中。 安裝 Windows NT 4.0 Option Pack，即可 Windows NT 4.0 版。 若要下載此工具，請流覽 文本。

使用 WSH 建立桌面快捷方式的範例

此程序示範如何使用 Windows 腳本主機在 Windows 桌面上建立快捷方式。 若要執行此範例，您必須在計算機上安裝 Windows 腳本主機。 若要執行其中一個範例，請將下列程式代碼複製到新的程式檔中，並加以執行。

範例 1

WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")
oMyShortcut.WindowStyle = 3 &&Maximized 7=Minimized 4=Normal
oMyShortcut.IconLocation = "C:\myicon.ico"
OMyShortcut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.Hotkey = "ALT+CTRL+F"
oMyShortCut.Save

範例 2：新增命令行自變數

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortCut= WshShell.CreateShortcut(strDesktop+"\Foxtest.lnk")
oMyShortCut.WindowStyle = 7 &&Minimized 0=Maximized 4=Normal
oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico"
oMyShortCut.TargetPath = "c:\Program Files\Microsoft Visual Studio\VFP98\vfp6.exe"
oMyShortCut.Arguments = '-c'+'"'+Home()+'config.fpw'+'"'
oMyShortCut.WorkingDirectory = "c:\"
oMyShortCut.Save

範例 3：將 URL 快捷方式新增至桌面

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

參考資料

• 白皮書：Windows 腳本主機：適用於腳本語言的通用腳本主機
• 技術檔：Windows 腳本主機程式設計人員參考