Retrouver le nom du fichier seul dans un path

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 541 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

jockos
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
2 -
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 -
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

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.