PERMET D'ISOLER LE NOM D'UN FICHIER À PARTIR D'UN CHEMIN

Signaler
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003
-
Messages postés
58
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
19 juillet 2003
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3798-permet-d-isoler-le-nom-d-un-fichier-a-partir-d-un-chemin

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+
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
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....
@+
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+