Recherche de nom de fichier dans chemin complet

[Sly le globe trotter]

Bonjour,

Dans un Textbox, je possède le chemin complet d'un fichier. Est-il possible de récupérer, à partir de cette chaine de caractère, uniquement le nom du fichier avec son extension ?

J'ai pensé à chercher, en partant de la droite, le caractère "\" et récupérer le texte situé après mais je ne trouve pas comment faire.

Merci pour votre aide
Sylvain

 

[tototiti2008]

Re : Recherche de nom de fichier dans chemin complet

Bonjour Sly,

Ton idée est excellente
Le nom des fonctions :
InStrRev(CheminComplet,"\") te donneras la position du "\"
Right(CheminComplet,Longueur) te permettra d'extraire les derniers caractères
et
Len(CheminComplet) te donnera la longueur totale du chemin

Le résultat :
Right(CheminComplet,Len(CheminComplet)-InStrRev(CheminComplet,"\"))

 

[Pierrot93]

Re : Recherche de nom de fichier dans chemin complet

Bonsoir Sylvain


Si j'ai bien compris, essaye peut être comme ceci, textbox placé sur un USF :

Dim t As String
t = Mid(Textbox1.Value, InStrRev(Textbox1.Value, "\") + 1)

bon après midi
@+

 

[stikouhm]

Re : Recherche de nom de fichier dans chemin complet

sinon tu as un truc tout fait qui permet de bien gerer les fichiers :

Set fs = CreateObject("Scripting.FileSystemObject")
nom_fichier = fs.getFileName(Textbox1.Value)

et hop ^^
si tu veux plus d'info va dans l'aide VBa d'excel, en tappant FileSystemObject
tu y trouveras ton bonheur.

 

[Sly le globe trotter]

Re : Recherche de nom de fichier dans chemin complet

Magnifique
Merci à vous deux pour ces solutions !

 

[MichelXld]

Re : Recherche de nom de fichier dans chemin complet

bonsoir

je sais que j'arrive en retard mais tu peux également utiliser :

MsgBox Dir(TextBox1)

bonne soirée
michel