SAVOIR LE NOM DU RÉPERTOIRE DE L'EXÉCUTABLE

Commentaire de bouv le 24/03/2005 21:18:38

Oui pas de pb pour app.path, cela fonctionne pour les repertoires réseaux.
seul hic pour app.path si on est a la racine d'un disque il retourne pas le \
ex : pour le disque c cela retourne c: et non c:\
alors que si on est dans un rep ou sous rep il retourne qq chose comme
c:\MonRep\MonSousRep\

Pour ma part j'utilise la fonction suivante :

Public Function AppPath() as string
     AppPath = App.Path
     if not Right(AppPath, 1) = "\" then AppPath = AppPath & "\"
End Function

Bonne prog
++

Commentaire de Abousamy le 26/03/2005 13:04:44

Bonjour,

Il me semble que dans votre fonction, il serait plus efficace d'utiliser, pour la recherche du chemin, la fonction "InstrRev" (au lieu de la boucle WHILE).
[Contairement à "Instr", "InstrRev" commence la recherche à partir de la fin de la chaîne, ce qui correspond à ce que vous recherchez].

Ainsi la fin de votre fonction pouurait être :

    Pos_nom = InStrRev(Chemin, "\")
    Fnc_ou_suisje = Left$(Chemin, Pos_nom)

A bientôt