Question

我是vbscript的新手。我试图通过vbscript更改我的快速启动图标。其中一个图标适用于我目前正在进行的任何游戏并经常更改。我的问题是如何在不知道快捷方式名称的情况下设置图标。是否可以搜索文件夹中的所有快捷方式，不包括那些不会更改的快捷方式，然后使用剩余的快捷方式设置＆＃34;设置objFolderItem（）＆＃34;的参数。游戏快捷方式的声明。我目前的代码。

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

否则杀死并重新启动explorer.exe。

使用vbscript更改快速启动图标

1 个答案: