VBS - nombre d'élément du Split ?
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 !
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 !
3 réponses
-
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 ! -
Salut ,
si je comprends bien le besoin,
tu peux utiliser GetFileName . -
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
