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

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

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)