Script - microsoft.public.scripting.vbscript

Message from discussion Script

PaulM

View profile

More options Nov 5 2009, 10:54 pm

Newsgroups: microsoft.public.scripting.vbscript

From: "PaulM" <N...@NONO.COM>

Date: Thu, 5 Nov 2009 17:54:44 -0500

Local: Thurs, Nov 5 2009 10:54 pm

Subject: Script

  Forward
  | Print
  | View thread
  | Show original
  | Report this message
  | Find messages by this author
  

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%\tes t.vbs")

Forward