Uygulamanın Çalışma Klasörünü Bulmak / Değiştirmek

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias _
"GetCurrentDirectoryA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Private Sub Form_Paint()
Dim Klasor As String
Klasor = String(255, 0)
GetCurrentDirectory 255, Klasor ‘ Klasörü bulur
MsgBox Klasor
‘ SetCurrentDirectory App.Path ‘ Klasörü değiştirir
End Sub