CodeItBetter Programming Another VB Programming Blog

'System & API - How to get System Directory
Option Explicit
 
Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" _
    (ByVal pszPath As String) As Long
Private Declare Function GetSystemDirectoryA Lib "kernel32" (ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long
 
Public Function GetSystemDirectory() As String
    Dim sSystemPath As String
    Dim I As Integer
    I = GetSystemDirectoryA("", 0)
    sSystemPath = Space(I)
    Call GetSystemDirectoryA(sSystemPath, I)
    GetSystemDirectory = AddBackslashUsingAPI(Left$(sSystemPath, I - 1))
End Function
 
Public Function AddBackslashUsingAPI(ByVal sFolder As String) As String
    sFolder = sFolder & String(1, 0)
    PathAddBackslash sFolder
    AddBackslashUsingAPI = sFolder
End Function