Getting system directories
 

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

Getting system directories
 

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" <leavemealone@home wrote in message
...
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

Getting system directories
 

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

"Robin Hammond" wrote in message
...
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" <leavemealone@home wrote in message
...
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

Getting system directories
 

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

--
Dana DeLouis
Win XP & Office 2003


"Fred" <leavemealone@home wrote in message
...
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