Permet d'isoler le nom d'un fichier à partir d'un chemin
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 490 fois - Téléchargée 42 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
- Permet d'isoler le nom d'un fichier à partir d'un chemin
- Renvoyer le nom d'un fichier a partir d'un chemin - Codes sources - Visual Basic / VB.NET (Texte)
- C / C++ / C++.NET : Extraire le nom d'un fichier à partir de son chemin (sans l'extension) - Guide
- Nom de fichier a partir d'un chemin - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Récupérer le nom d'un fichier à partir de son path ✓ - Forum - C
- Récupérer nom d'un fichier à partir du path ✓ - Forum - C# / .NET
Commentaires
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+
enfin je crois
en code escape c'est % 5 C ... %5C faut voir
@+
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.