Savoir le nom du répertoire de l'exécutable

Soyez le premier à donner votre avis sur cette source.

Vue 4 824 fois - Téléchargée 405 fois

Description

Fonction qui retourne le nom du répertoire où est situé l'exécutable.
ex.: c:\production\projet1\
ex.: \\serveur\production\projet1\
Fonctionne aussi si exécuté sur un serveur. Utile pour la portabilité des programmes d'un serveur à un autre.
Facilite l'accès aux sous-répertoire.
Aussi utile en cours de développement, le répertoire courrant étant « C:\Program Files\Microsoft Visual Studio\VB98\ », nous pouvons modifier le nom pour notre répertoire de test. Exemple dans le code.

Conclusion :


Pas compliqué et pratique.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
28 mars 2005 à 12:59
crenaud76>> Ok je ne savais pas, cependant ce n'est pour moi qu'une question de rigueur.
Je sais ainsi que chaque fois que j'appel une varibale contenant un chemin, celui-ci se termine par "" et qu'il ne me reste qu'a ajouter le nom du fichier.
dpouliot
Messages postés
50
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
4 novembre 2008

27 mars 2005 à 07:46
Bonjour Abousamy
Pour InStrRev, je ne connaisais pas cette fonction.
L'important est d'éliminer les blancs de fin de chaine et de placer le "" final afin de pourvoir le réutiliser pour nos noms de fichier et\ou sous répertoire.

Bonne programation.
cs_Abousamy
Messages postés
1
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
26 mars 2005

26 mars 2005 à 13:04
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
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
25 mars 2005 à 12:21
Bouv < Moi, je me prend pas la tête, je rajoute systématiquement le "" derrière, car pour windoz, "c:\toto\\tata" est un chemin valide
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
24 mars 2005 à 21:18
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
++
Afficher les 6 commentaires

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.