PERMET D'ISOLER LE NOM D'UN FICHIER À PARTIR D'UN CHEMIN
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
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
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
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
https://codes-sources.commentcamarche.net/source/3798-permet-d-isoler-le-nom-d-un-fichier-a-partir-d-un-chemin
28 juin 2002 à 19:15
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+
28 juin 2002 à 14:59
enfin je crois
en code escape c'est % 5 C ... %5C faut voir
28 juin 2002 à 10:21
@+
27 juin 2002 à 20:51
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+