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