avec API :
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Function GetCurrentDirectory() As String
Dim nLength As Long
GetCurrentDirectory = Space$(300)
GetModuleFileName 0, GetCurrentDirectory, 300
GetCurrentDirectory = Left$(GetCurrentDirectory, InStrRev(GetCurrentDirectory, "\"))
End Function
et sans API :
Private Function GetCurrentDirectory() As String
GetCurrentDirectory = App.Path
If Right$(GetCurrentDirectory, 1) <> "\" Then
GetCurrentDirectory = GetCurrentDirectory & "\"
End If
End Function