Renvoyer le nom d'un fichier a partir d'un chemin

Commenter

Contenu du snippet

Voila comment obtenir le nom d'un fichier avec son chemin complet.
Exemple : "C:\WINDOWS\Bureau\Chanson.mp3" renverra "Chanson".
Cela peux servir par exemple pour un lecteur mp3 ou autres...

Bon jé modifié la source par rapport a vos commentaires, en effet j'ai kand même été chershé bien loin lol, une fonction pour ... enfin bon ! Je réduit donc le code.

Source / Exemple : 


'Fonction pour meilleure utilisation :

Public Function NomFichier(Chemin As String)
NomFichier = Right(Chemin, InStr(StrReverse(Chemin), "\") - 1)
NomFichier = Left(NomFichier, Len(NomFichier) - InStr(StrReverse(NomFichier), "."))
End Function

'Utilisation :

Private Sub Command1_Click()
MsgBox NomFichier("C:\TonShemin\...\TonFichier.aaa")
'Donc renvoi 'TonFichier'
End Sub

'----------------------------------------------

'Sinon :

Private Sub Command1_Click()
Dim Chemin, Fichier As String
Chemin = "C:\TonShemin\...\TonFichier.aaa"
Fichier = Right(Chemin, InStr(StrReverse(Chemin), "\") - 1)
Fichier = Left(Fichier, Len(Fichier) - InStr(StrReverse(Fichier), "."))
Text1.Text = Fichier
End Sub

Conclusion :


Komme dit dans les commentaires, bug si dans le nom du fichier il y a un antislash ...
C:\WINDOWS\Bureau\Matt - 12\0013.mp3 < renverra 0013, logique mé un peu dommage ... :)

Voila !
J'espère que ca servira a pas mal d'entre nous, et que ca rapportera pas mal.
Tout les commentaires seront bienvenus ;)

[ ICIoBRa ]

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 (ICIoBRa)