Bonjour

Dans mon application je cherche le chemin de mon application.Ce chemin peut varier celon où est stocké l'application.
Je stock le résultat de cette recherche dans une variable string. la chaine comporte le nom de l'application, comment remplacer le nom de l'application par le nom d'un autre fichier.

example

La chaine de départ est "c:\vb\transfert.exe"
la chaine final "c:\vb\chemin.ini"

Attention je début donner des explications

merci

Dim tablo() As string Dim chaine1 As string DIm chaine2 as string chaine1 = "c:\vb\transfert.exe" ' on découpe le chemin en élément séparés par '\' tablo=Split(chaine1,"\",,vbTextCompare) ' on modifie le dernier élément tablo(ubound(tablo)) = "chemin.ini" ' on recolle tous les morceaux chaine2 = tablo(LBound(tablo)) For i = LBound(tablo) + 1 To UBound(tablo) chaine2 = chaine2 & "\" & tablo(i) Next i ' chaine2 contient "c:\vb\chemin.ini"

Manu

autre possibilité

pour récupérer le chemin dans lequel se trouve l'application
et changer le nom du fichier par chemin.ini
dim chemin as string
chemin = app.path & "chemin.ini"

tu oublies un truc :

App.Path & "\chemin.ini"

Manu

avec un petit détail :
si l'exe est dans la racine (C:\), App.Path renvoie "C:\"
si l'exe est dans C:\dossier, App.Path renvoie "C:\dossier"
Il faut donc vérifier la présence de "\"

If Right$(App.Path, 1) = "\" Then chemin = App.Path & "chemin.ini" Else chemin = App.Path & "\chemin.ini" End If

grillé sur le poteau ... mais plus précis !

ouep j'avais zappé le "\" enfin vous avez été rapide à me corriger ;)

Sauf que comme "c:\\toto.txt" est un chemin valide pour windows, on se fout de savoir si on est à la racine ou pas. Sauf, s'il faut afficher le chemin auquel cas ce n'est pas très beau, alors moi je fait cela :
MonFichier = Replace$(app.path & "\toto.txt","\\","\")
Et basta !! Ca evite un "If Then Else"

Christophe R.

merci pour les informations