Dossier courant de l'exe en cours d'éxécution

Commenter

Contenu du snippet 

'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

Compatibilité : VB6

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BruNews)