equiv to %windir% in VBS ?

[DVNT1]

What is the equivilant to %windir% variable in VBS ?

The intent is to copy files into the appropriate Windows directory based on if running XP or 2k (and regardless to which drive letter Windows is installed on), if the files do not already exist.

[DVNT1]

Hmmm

In this VBS example..

flagfile1 = "%windir%\notepad"
If not objFSO.FileExists (flagfile1) then
msgbox ("no file")
End If

WshShell.Run flagfile1


The WshShell.Run flagfile1 it works as expected (c:\winnt\notepad.exe runs).

But in the If not objFSO.FileExists (flagfile1) command it does not work as expected.

[DVNT1]

found a way to do this:

dim filesys, windir

Set filesys = CreateObject("Scripting.FileSystemObject")
Set windir = filesys.GetSpecialFolder(0)

If not objFSO.FileExists ( windir & "\notepad.exe") then
objFSO.CopyFile "f:\notepad.exe" , windir & "\"
End if

[vass0922]

The general way to get the system variables is such

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
WScript.Echo WshSysEnv("WINDIR")

Sorry I was late
btw... Outlook forms are EVIL


I believe you could also use

objFSO.Copy "C:\Initial File\Dir\test.txt", "%ADMIN%\"

[DVNT1]

Thanks for the reply vass0922 !