changing a quick launch icon with vbscript -
i new vbscript. trying change quick launch icons via vbscript. 1 of these icons whatever game , changes often. question how can set icon without knowing shortcut name be. possible search shortcuts in folder excluding ones wont change , use remaining shortcut set parameters of "set objfolderitem()" statement game shortcut. current code.
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
you can try this.
refreshmenu method -------------------------------------------------------------------------------- description refreshes contents of start menu. syntax object.refreshmenu parameter description object required. object expression evaluates shell object. see shell else kill , restart explorer.exe.
Comments
Post a Comment