VBS - nombre d'élément du Split ? Fermé

Question

Bonjour,

j'ai une petite question en vbs

je voudrai recuperer le nom d'un fichier que l'on aura saisi

ex : on tape c:\dos\titi\toto.txt

je veux récuperer "toto"

aors j'ai fais 2 Split
-1 pour recupere le toto.txt
- et l'autre pr recupere le toto

Mais cela ne fonctionne que si l'on sait combien il y a d'élément dans le chemin

Or cela peut etre variable !

Alors je ne sais pas comment faire pour recuperer le nombre d'élément du split pour apres faire mon split sur le dernier élément ?

Est-ce clair ?

Merci de votre aide !

Utilisateur anonyme · Answer

Bonjour,

Suggestion :

Dim oFS
Dim Valeur, Resultat
Dim Position, Lettre, Mot
Dim Longueur

Set oFS = CreateObject("Scripting.FileSystemObject")

Valeur = "c:\dos\titi\toto.txt"
Wscript.Echo (len(Valeur))
Resultat = Mid(Valeur,1,( ( Len(Valeur) ) -4 ))
Wscript.Echo Resultat
Position = (Len(Resultat))
Lettre = Mid(Resultat,Position,1)
While ( Lettre <> "\")
Position = (Position - 1)
Lettre = Mid(Resultat,Position,1)
Wend
Mot = Mid(Resultat,(Position + 1) )
Wscript.Echo Mot

Lupin

aldo13 · Answer

Salut , si je comprends bien le besoin, tu peux utiliser GetFileName  .

sam · Answer

Bonjour!

Merci de vos reponses, j'ai fait comme ceci :

recup_nom_fichier_user = Split(fso.GetFileName(rep_user),chr(46), -1, 1)
nom_fichier_user = recup_nom_fichier_user(0)

La solution de Lupin est correcte mais celle-ci est plus courte !

Merci a tous !

VBS - nombre d'élément du Split ?

3 réponses

Discussions similaires