Getting system directories

[Fred]

How can I get the path names of the "Program files" directory, the
"Windows/system32" directory, and the XLStart directory?

Thanks for your help
Fred

 

[Robin Hammond]

Fred,

This goes slightly beyond your question but gives you a way to retrieve most
common system info items. Note the last line in the sub which shows how to
refer to an item by its text identifier.

Sub ListEnvironVariables()
Dim lCounter As Long
Workbooks.Add
For lCounter = 1 To 32
Cells(lCounter, 1).Value = Environ(lCounter)
Next lCounter
Cells(33, 1) = Application.Path & "\XLStart"
Cells(34,1) = Environ("Windir") & "\System32"
End Sub

Robin Hammond
www.enhanceddatasystems.com

 

[Fred]

Thanks Robin, that's exactly what I needed.
Fred

Fred,

This goes slightly beyond your question but gives you a way to retrieve
most common system info items. Note the last line in the sub which shows
how to refer to an item by its text identifier.

Sub ListEnvironVariables()
Dim lCounter As Long
Workbooks.Add
For lCounter = 1 To 32
Cells(lCounter, 1).Value = Environ(lCounter)
Next lCounter
Cells(33, 1) = Application.Path & "\XLStart"
Cells(34,1) = Environ("Windir") & "\System32"
End Sub

Robin Hammond
www.enhanceddatasystems.com

 

[Dana DeLouis]

This may not be useful, but I'd thought I'd mention it...

Sub Demo()
Dim fso As Variant

Const WindowsFolder As Long = 0
Const SystemFolder As Long = 1
Const TemporaryFolder As Long = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Debug.Print fso.GetSpecialFolder(WindowsFolder)
Debug.Print fso.GetSpecialFolder(SystemFolder)
Debug.Print fso.GetSpecialFolder(TemporaryFolder)
Set fso = Nothing

End Sub