CodeItBetter Programming Another VB Programming Blog

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