CodeItBetter Programming Another VB Programming Blog

'System & API - How to return the path to the windows directory.
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Public Function WindowsDir() As String
    Dim Gwdvar As String, Gwdvar_Length As Integer
    Gwdvar = Space(255)
    Gwdvar_Length = GetWindowsDirectory(Gwdvar, 255)
    WindowsDir = Left(Gwdvar, Gwdvar_Length)
End Function
 
'How can I call this function:
'Debug.Print WindowsDir