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

The %APPDATA% variable includes the folder named Roaming.


Maybe...

Set objFolder = objShell.Namespace("%APPDATA%\Roaming\uTorrent")

...should be:

Set objFolder = objShell.Namespace("%APPDATA%\uTorrent")

I tried the variable but unfortunately I still get an error message.

But using the following exact path it work.

Set objFolder = objShell.Namespace("C:\Users\Z z z\AppData\Roaming\uTorrent")

I tried

Set objFolder = objShell.Namespace("%%APPDATA%%\uTorrent")


still the same error msg

I don't know much about VBS, but %appdata% expands correctly in the code below:

Code:

Option Explicit
Dim objWShell
Set objWShell = WScript.CreateObject("WScript.Shell")
Dim appData
appData = objWShell.expandEnvironmentStrings("%APPDATA%")
msgbox appdata ,0, "expanded"

The source for most of that code can be found here:
vbscript - How to Create Folders and Subfolders in %AppData% - Stack Overflow