Trouver le nom d'un fichier à partir d'un chemin

Bonjour,

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

Merci
Stéphanie

Un exemple:

Code:

---

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

---

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

Code:

---

TonFichier.Path

---

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

Code:

---

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:

---

TonFichier.name

---

Pour récupérer son nom

Ou simplement:

Code:

---

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

Merci à tous.:ccool: