Salut eric_piccaut
Ce qui sépare le nom d'un fichier et des sous-répertoires, c'est le dernier signe \.
L'instruction InstrRev retrouve la place d'un caractère dans une chaine, mais en commençant par la fin (contrairement à Instr).
Le InstRev te renverra le chiffre correspondant à l'emplacement de ce caractère.
| Position = InstrRev(Chaine, "\") |
Pour isoler les noms, tu n'as plus qu'à jouer avec l'instruction Left pour les sous-répertoires :
| SousRép = Left(Chaine, Position) |
et avec l'instruction Mid pour le nom du fichier :
| NomFichier = Mid(Chaine, Position + 1) |
le +1 étant la pour commencer au caractère qui suit le \ qui vient d'être trouvé.
Mais voilà : si la Chaine que tu vas lui fournir ne comporte pas de sous-répertoire, InstrRev va te retourner 0 (ou -1, je ne sais plus). Dans ce cas là, les instructions Left et Mid au dessus vont buguer (un argument = 0)
Pour éviter ça, il suffit de tester si Position a bien une valeur correcte :
If Position > 0 Then
SousRép = Left(Chaine, Position)
NomFichier = Mid(Chaine, Position + 1)
End If |
Vala
Jack