Extraire le nom d'un fichier depuis son chemin complet

Comment extraire "zaza.xls" et "zaza" du chemin "F:\mondossier\monsousdossier\zaza.xls"

Pour récupérer "zaza.xls" : 

 Dim I As Integer  
For I = Len(NomFic) To 1 Step -1  
 If Mid$(NomFic, I, 1) = "" Then Exit For 
 Next  
NomCourt = Mid$(NomFic, I + 1)

Pour récupérer "zaza" à partir de "zaza.xls" SansExtension= Left(AvecExtension, Len(AvecExtension) - 4)

Auteur :

Mots clefs associés à cette page : , , , , , , , , ,