0/5 (4 avis)
Snippet vu 6 830 fois - Téléchargée 46 fois
'à 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
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+
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.