• Home
 · 
• Files/File Controls/Input/Output
 · 
• Get the Windows and System directories.

Get the Windows and System directories.

These two functions will return the location of the Windows directory (WinDir)
and the location of the System directory (SysDir).

Inputs
A boolean value indicating whether you would like a "\" character added to the end of the file path. Thus if you pass the value true it returns "C:\WINDOWS\" and if you pass false it returns "C:\WINDOWS".

Assumes
Put the API declarations and the functions in a standard module and you should be ready to go. The code is pretty easy to follow so I have no commented it. If you are having trouble understanding it and would like me to come back and add comments explaining it just leave a comment at the bottom of the page.

Returns
A string value containing the path of either the Windows directory or the System directory.

Side Effects
None that I know of. Leave a comment if you find one.

API Declarations
Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Rate Get the Windows and System directories.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function WinDir(Optional ByVal AddSlash As Boolean = False) As String
  Dim t As String * 255
  Dim i As Long
  i = GetWindowsDirectory(t, Len(t))
  WinDir = Left(t, i)
  If (AddSlash = True) And (Right(WinDir, 1) <> "\") Then
    WinDir = WinDir & "\"
  ElseIf (AddSlash = False) And (Right(WinDir, 1) = "\") Then
    WinDir = Left(WinDir, Len(WinDir) - 1)
  End If
End Function
Public Function SysDir(Optional ByVal AddSlash As Boolean = False) As String
  Dim t As String * 255
  Dim i As Long
  i = GetSystemDirectory(t, Len(t))
  SysDir = Left(t, i)
  If (AddSlash = True) And (Right(SysDir, 1) <> "\") Then
    SysDir = SysDir & "\"
  ElseIf (AddSlash = False) And (Right(SysDir, 1) = "\") Then
    SysDir = Left(SysDir, Len(SysDir) - 1)
  End If
End Function