System Root directory

J

Jack

Any ideas on how to determine what version of windows is
being run, and what the system root directory is?

e.g. c:\winnt OR c:\windows etc.

Thanks

Jack
 
D

David Coleman

Hi Jack

Environ("windir") will return the windows directory

and

Application.OperatingSystem will return the version of windows

eg msgbox(environ("windir"))
or msgbox(application.operatingsystem)

HTH

David
 
D

Dana DeLouis

... the system root directory is?

Would any ideas here help?

Sub Demo()
Const WindowsFolder = 0
Const SystemFolder = 1
Const TemporaryFolder = 2

With CreateObject("Scripting.FileSystemObject")
Debug.Print .GetSpecialFolder(WindowsFolder)
Debug.Print .GetSpecialFolder(SystemFolder)
Debug.Print .GetSpecialFolder(TemporaryFolder)
End With
End Sub
 
R

Rob van Gelder

Jack,

Sub test()
MsgBox (Environ("WINDIR") & _
Application.PathSeparator & _
IIf(InStr(1, Application.OperatingSystem, "32"), "System32",
"System"))
End Sub

Rob
 
Top