RETROUVER LE NOM DU FICHIER SEUL DANS UN PATH

vbbreizh Messages postés 73 Date d'inscription lundi 25 juin 2001 Statut Membre Dernière intervention 13 novembre 2005 - 18 févr. 2002 à 15:06
jockos Messages postés 321 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 14 mai 2005 - 9 sept. 2002 à 23:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2628-retrouver-le-nom-du-fichier-seul-dans-un-path

jockos Messages postés 321 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 14 mai 2005 2
9 sept. 2002 à 23:05
Comment tu te galère la vie man avec ce code...
Tu peux le faire en 3 lignes:

Soit la variable FileName contenant le Path

Dim FirstHeader As Long

'dernier slash du Path
FirstHeader = InStrRev(FileName, "")

'Nom du Fichier sans le Path
FileName = Right$(FileName, Len(FileName) - FirstHeader)

Jockos
vbbreizh Messages postés 73 Date d'inscription lundi 25 juin 2001 Statut Membre Dernière intervention 13 novembre 2005 1
18 févr. 2002 à 15:06
dans la méthode n°2 il faut lire :
MsgBox str(Right(FilePath, pos- 1)),0+64,"Nom du fichier..."
et non
MsgBox str(Right(FilePath, i - 1)),0+64,"Nom du fichier..."
Cordialement à tous. VBBreizh
Rejoignez-nous