Vista - Script

Why does this script work:

' Description: Demonstration script that uses the FileSystemObject to delete
a file. Local computer
' For Vista

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile("F:\Users\TestUser\AppData\Local\test.vbs")


And this script does not work:

' Description: Demonstration script that uses the FileSystemObject to delete
a file. Local computer
' For Vista

Dim Windir
Dim Users
Dim UserProfile
Dim AppData
Dim Local

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Windir = WshShell.ExpandEnvironmentStrings("%SystemRoot%")
Users = WshShell.ExpandEnvironmentStrings("%Users%")
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")
AppData = WshShell.ExpandEnvironmentStrings("%AppData%")
Local = WshShell.ExpandEnvironmentStrings("%Local%")

objFSO.DeleteFile("%SystemRoot%\%Users%\%UserProfile%\%AppData%\%Local%\test.vbs")

"PaulM" <NONO@newsgroup> wrote in message
news:OORp6rmXKHA.220@newsgroupIf you replace the line
objFSO.DeleteFile("%SystemRoot%\%Users%\%UserProfile%\%AppData%\%Local%\test.vbs")
with this line
wscript.echo "%SystemRoot%\%Users%\%UserProfile%\%AppData%\%Local%\test.vbs"
then you will see immediately why it cannot possibly work. Neither
objFSO.DeleteFile nor wscript.echo can resolve environmental variables such
as %SystemRoot%. How about something like this?

objFSO.DeleteFile(Local & "\test.vbs")

I also urge you to open a Command Prompt (click Start / Run / cmd {OK} and
type this command:

echo %SystemRoot%\%Users%\%UserProfile%\%AppData%\%Local%

I took it right from your own code. As you see, it produces nonsense.

"PaulM" <NONO@newsgroup> wrote in message
news:OORp6rmXKHA.220@newsgroupCheck out the LocalAppData environment variable. Also, once you retrieve the
value of the environment variable and assign it to a variable, use the
variable. For example, try:
========
Dim LocalAppData, WshShell, objFSO

Set WshShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

LocalAppData = WshShell.ExpandEnvironmentStrings("%LocalAppData%")

objFSO.DeleteFile(LocalAppData & "\test.vbs")
=========
You can troubleshoot with statements similar to:

Wscript.Echo LocalAppData & "\test.vbs"

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Thanks


"Richard Mueller [MVP]" <rlmueller-nospam@newsgroup> wrote in
message news:OreMP6mXKHA.412@newsgroup