1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Retrouver le nom du fichier seul dans un path

Retrouver le nom du fichier seul dans un path

0/5 (2 avis)

Snippet vu 3 820 fois - Téléchargée 49 fois

Commenter

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
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
S'inscrire maintenant

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.

Du même auteur (vbbreizh)