Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I open an Excel file on XP system, saved on a Vista system | Excel Discussion (Misc queries) | |||
excel causing system to be in low system resource | Excel Discussion (Misc queries) | |||
sub directories again | Excel Programming | |||
sub directories | Excel Programming | |||
Directories | Excel Programming |