изменение значка быстрого запуска с помощью vbscript

Question

Я новичок в vbscript. Я пытаюсь изменить свои быстрые значки запуска через vbscript. Один из этих значков - для любой игры, в которую я сейчас вхожу, и часто меняется. мой вопрос заключается в том, как я могу установить значок, не зная, каким будет имя ярлыка. Можно ли искать все ярлыки в папке, исключая те, которые не меняются, а затем использовать оставшуюся комбинацию клавиш для установки параметров оператора set objFolderItem() для ярлыка игры. Мой текущий код.

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 

Answer 1

Вы можете попробовать это.

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 

Else kill and restart explorer.exe.