'L'exemple fourni en VB6 pose probleme (la version API et sans API ne renvois pas le même resultat dans un projet non enregistré (erreur entre App.path et le dossier Courant)
'Pour faire plus simple, on peut faire :
Public Enum AppPathOrCurDir
AppPath = 0
CurDir_ = 1
End Enum
Public Function GetCurrentPath(ByVal CurrentDirectory As AppPathOrCurDir) As String
'On Choisit le répertoire à afficher (soit App.Path, soit le dossier courant utilisé par le programme)
Select Case CurrentDirectory
Case 0 : GetCurrentPath = IIf(Right$(App.Path, 1) <> "\", App.Path & "\", App.Path) 'Retourne le répertoire de l'application
Case 1 : GetCurrentPath = IIf(Right$(CurDir, 1) <> "\", CurDir & "\", CurDir) 'Retourne le répertoire courant de l'application
End Select
End Function