Discussion :

[StephanieL]

Bonjour,

Je voudrais récupérer la fin de
C:\Mes documents\Exemple.txt, ce qui donnerai Exemple.txt

Merci
Stéphanie

[mercatog]

Un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim FichComp As String, Fich As String
Dim tablo() As String
FichComp = "C:\Mes documents\Exemple.txt"
tablo = Split(FichComp, "\")
Fich = tablo(UBound(tablo))
MsgBox Fich

[diude54]

Comment obtient tu cette info.
Dans tout les cas tu peux faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TonFichier.Path

Si tu as cette donnée sous forme de texte, tu peux ensuite faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Chemin="C:\Mes documents\Exemple.txt, ce qui donnerai Exemple.txt"
Tableau=Split(Chemin,"\")
Nom=Tableau(Ubound(Tableau)) 'Renvoie Exemple.txt dans ce cas

Sinon tu peux directement faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TonFichier.name

Pour récupérer son nom

[mercatog]

Ou simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim FichComp As String, Fich As String
 
FichComp = "C:\Mes documents\Exemple.txt"
 
Fich = Mid(FichComp, InStrRev(FichComp, "\") + 1, Len(FichComp) - InStrRev(FichComp, "\"))
 
MsgBox Fich

Adapté de Cafeine dans l'autre post

[StephanieL]

Merci à tous.