CodeItBetter Programming Another VB Programming Blog

'System & API - How to get current directory using API
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" _
    (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Sub Form_Load()
    Dim cwd As String
    Dim length As Long
    cwd = Space(128)
    length = GetCurrentDirectory(128, cwd)
    cwd = Left(cwd, length)
    MsgBox cwd
    End
End Sub