Retrouver le nom du fichier seul dans un path

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 504 fois - Téléchargée 47 fois

Contenu du snippet

Deux astuces pour isoler le nom du fichier seul dans un Path.
Simple pratique et efficace...(pour les débutants)

Source / Exemple :


' 2 boutons de commande (Command1, Command2) dans une feuille
'déclaration
Dim FilePath$
'---------------------
'1ère méthode
'-------------------------------------------
Private Sub Command1_Click()
Dim i%, grall$
For i = 1 To Len(FilePath)
       If Left(Right(FilePath, i), 1) = "\" Then
          grall = Right(FilePath, i - 1)
          Exit For
          End If
Msgbox grall,0+64,"Nom de fichier..."
'---------------------------------------------
'2 ème méthode (à vous de choisir entre rapidité et élégance...)
'---------------------------------------------
Private Sub Command2_Click()
Dim Ret$, Str0$, grall$
Dim i%,pos%
Str0 = FilePath
Ret = ""
For i = 1 To Len(FilePath) 'inverseStr
      Ret = Ret & Right(Str0, 1)
      Str0 = Left(FilePath, Len(FilePath) - i)
      Next i
pos= InStr(1, Ret, "\") 'slash position in inverseStr
Msgbox str(Right(FilePath, i - 1)),0+64,"Nom du fichier..."

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de vbbreizh

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.