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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 441 fois - Téléchargée 42 fois

Commenter

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

Signaler
Int19h
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003
 -
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+
Signaler
erreurs404
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
 -
si elle marche mais l'antislash déconne un peu ici ...
enfin je crois
en code escape c'est % 5 C ... %5C faut voir
Signaler
jujuwiwi
Messages postés
30
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
24 août 2007
 -
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....
@+
Signaler
Int19h
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003
 -
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+
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 (jujuwiwi)