modifier une chaine de caractère

Question

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	ransfert.exe"
la chaine final "c:\vb\chemin.ini"

Attention je début donner des explications

merci

econs · Answer

Dim tablo() As string
Dim chaine1 As string
DIm chaine2 as string

chaine1 = "c:\vb	ransfert.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

scoder · Answer

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"

econs · Answer

tu oublies un truc :

App.Path & "\chemin.ini"

Manu

cs_rene38 · Answer

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

cs_rene38 · Answer

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

scoder · Answer

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

crenaud76 · Answer

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 & "	oto.txt","\","")
Et basta !! Ca evite un "If Then Else"

Christophe R.

tof72 · Answer

merci pour les informations

Modifier une chaine de caractère

8 réponses

Discussions similaires