0/5 (2 avis)
Snippet vu 3 820 fois - Téléchargée 49 fois
' 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..."
9 sept. 2002 à 23:05
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
18 févr. 2002 à 15:06
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.