Permet d'isoler le nom d'un fichier à partir d'un chemin

0/5 (4 avis)

Snippet vu 6 830 fois - Téléchargée 46 fois

Contenu du snippet


Source / Exemple :


'à mettre dans la form load pour voir le resultat
Dim chemin As String
chemin = App.Path
msgbox RecupNomFichier(chemin)

'à mettre dans un module

Function RecupNomFichier(stock As String)
'permet d'isoler le nom d'un fichier à partir d'un chemin
'exemple: C:\Documents and Settings\Administrateur\Bureau\essai2
'recup sera = à essai2
Dim test As String
Dim recup As String
Dim i As Integer
i = 1
recup = ""
While test <> "\"
i = i + 1
test = Left(Right(stock, Len(stock) - (Len(stock) - i)), 1)
Wend
For j = i - 1 To 1 Step -1
recup = recup & Left(Right(stock, Len(stock) - (Len(stock) - j)), 1)
Next
RecupNomFichier = recup
End Function

Conclusion :


cela peut parfois servir

A voir également

Ajouter un commentaire Commentaires
Int19h Messages postés 58 Date d'inscription jeudi 25 avril 2002 Statut Membre Dernière intervention 19 juillet 2003
28 juin 2002 à 19:15
yep, sorry... Mais c'est pô ma faute ;-)
Donc entre les "", il faut mettre anti-slash = alt-gr + 8

voila...

Note : IL faut VB6 sous VB5, InstrRev n'EXISTE pas

Pour mid$ c'est simple :

Mid$(variable, Debut, Nombre_de_caracter)
Si on presise pas le nombre de caracter, on copie la chaine jusqu'a sa fin.
Exemple :
a$="123456789"

print Mid$(a$,2,4)
Affiche : 2345

Print mid$(a$,5)
affiche : 56789

Question(s) : int19h@caramail.com

a+
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009
28 juin 2002 à 14:59
si elle marche mais l'antislash déconne un peu ici ...
enfin je crois
en code escape c'est % 5 C ... %5C faut voir
jujuwiwi Messages postés 30 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 24 août 2007
28 juin 2002 à 10:21
heuu et bien j'ai essayé ta fonction, et ben ça marche pas. Mais je sais que l'on peut faire plus simple que ma fonction avec mid mais je ne sais pas comment elle fonctionne....
@+
Int19h Messages postés 58 Date d'inscription jeudi 25 avril 2002 Statut Membre Dernière intervention 19 juillet 2003
27 juin 2002 à 20:51
Si tu es sous VB6, tu peux teste un truc comme ca :

chemin = App.Path
MsgBox RecupNomFichier(chemin)

' à mettre dans un module OU DANS LA FORM TOUT EN HAUT
Function RecupNomFichier(stock As String)
RecupNomFichier = mid$(stock, instrrev(stock,"")+1)
End Function

a+

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.