New
#1
Can't get VBS script working with win7 enviromental variable
Hi
I keep getting error msg when I substitute the path with environmental variable.
Please advice, Thank you.
such as
Set objFolder = objShell.Namespace("C:\Users\Z z z\AppData\Roaming\uTorrent")
Set objFolder = objShell.Namespace("%APPDATA%\Roaming\uTorrent")
Set objFolder = objShell.Namespace("C:\Program Files (x86)\uTorrent")
Set objFolder = objShell.Namespace("%PROGRAMFILES(X86)%\uTorrent")
=====================
whole script pin to taskbar
Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("%PROGRAMFILES(X86)%\uTorrent")
Set objFolderItem = objFolder.ParseName("uTorrent.exe")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
Next
WScript.Quit