System Root directory

[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

 

[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

 

[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

 

[Rob van Gelder]

Jack,

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

Rob