2016-01-27 49 views
1

快速啓動圖標,我是新來的VBScript。我正在嘗試通過vbscript更改我的快速啓動圖標。其中一個圖標適用於我目前正在進行的任何遊戲並經常更改。我的問題是如何設置的圖標不知道該快捷方式的名稱將是什麼。有沒有可能來搜索文件夾中的所有快捷方式不包括這不會改變,然後用剩下的快捷方式設置「設置objFolderItem()」語句的參數對於遊戲快捷方式的人。我目前的代碼。改變使用VBScript

Set objShell = CreateObject("Shell.Application") 
usrname = CreateObject("WScript.Network").UserName 
Set objFolder = objShell.NameSpace("C:\Users\" + usrname + "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch") 
Set objFolderItem = objFolder.ParseName("foobar2000.lnk") 
Set objShortcut = objFolderItem.GetLink 
objShortcut.SetIconLocation "D:\Arthur\Graphics\Icons\Quicklaunch\Ico\Music.ico", 0 
objShortcut.Save 

Set objFolderItem = objFolder.ParseName("Game.lnk") 
Set objShortcut = objFolderItem.GetLink 
objShortcut.SetIconLocation "D:\Arthur\Graphics\Icons\Quicklaunch\Ico\Game.ico", 0 
objShortcut.Save 

回答

0

您可以試試這個。

RefreshMenu Method 

-------------------------------------------------------------------------------- 

Description 

Refreshes the contents of the Start Menu. 


Syntax 
object.RefreshMenu 



Parameter Description 
object Required. An object expression that evaluates to a Shell object. 


See Also 
Shell 

否則殺死並重新啓動explorer.exe。