書名: Office VBA開發經典:中級進階卷作者名: 劉永富 劉行本章字數: 890字更新時間: 2019-11-22 18:29:06
2.4 創建快捷方式
Windows允許用戶在文件夾中或者桌面(桌面是系統盤下的一個特殊文件夾)為文件或網址創建快捷方式。所謂的快捷方式,其實是一個擴展名為.lnk的圖標文件。
在桌面上查看搜狗高速瀏覽器的快捷方式的屬性,可以看到這個快捷方式指向的文件是SogouExplorer.exe,也就是說,雙擊快捷方式就相當于雙擊了搜狗高速瀏覽器的執行文件,如圖2-35所示。
然后切換到“詳細信息”選項卡,可以看到該快捷方式的完整路徑,如圖2-36所示。

圖2-35 搜狗高速瀏覽器的桌面快捷方式

圖2-36 快捷方式的詳細信息
看到所在路徑是桌面,文件名是“搜狗高速瀏覽器.lnk”。
2.4.1 創建文件的快捷方式
創建快捷方式也可以通過編程的方式實現。具體步驟如下。
首先,使用WshShell的CreateShortCut方法創建一個快捷方式,會產生一個WshShortcut對象,然后,為該對象設置有關屬性。
TargetPath:目標路徑,也就是快捷方式指向的文件路徑。
IconLocation:自定義圖標的位置,也就是.ico格式的圖標文件位置。
HotKey:快捷鍵。
最后,保存快捷鍵。
當然,在創建快捷方式之前應該先判斷桌面是否已經有了同名的快捷方式,如果已存在,會創建失敗。
下面的代碼首先判斷桌面上是否存在Windows計算器的快捷方式,如果已有快捷方式,則彈出警告對話框,不予創建。否則,自動在桌面創建一個名為calc.lnk的快捷方式。

代碼分析:變量Desk用來獲取桌面所在的文件夾路徑,對象變量mySht就是快捷方式本身。讀者可以根據需要自行調整TargetPath、IconLocation這些參數。
運行上述代碼后,可以看到桌面上多了一個快捷方式。圖2-37所示為calc快捷方式的屬性。

圖2-37 自動創建桌面快捷方式
如果雙擊該快捷方式,或者按下快捷鍵【Ctrl+Alt+F7】,會自動彈出計算器。
2.4.2 創建網址的快捷方式
除了可以創建本機文件的快捷方式,還可以創建網址的快捷方式,只要雙擊該快捷方式,就自動在默認的瀏覽器中打開該網頁。
網址快捷方式與上面介紹過的普通快捷方式有幾點不同。
對象類型不同,網址快捷方式的對象類型是WshURLShortcut。
快捷方式擴展名不同,網址快捷方式的擴展名是.url,不是.lnk。
沒有HotKey屬性,不支持快捷鍵的設定。
下面的過程自動在桌面創建一個網址快捷方式。

代碼分析:首先判斷桌面是否已存在該網址快捷方式,如果存在,則先刪除。
運行上述代碼,會看到桌面多了一個快捷方式。圖2-38所示為創建的MaHouPao快捷方式的屬性。

圖2-38 網址快捷方式屬性