CodeItBetter Programming Another VB Programming Blog

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