[V.B 2010 Express]Récupérer partie d'adresse Résolu/Fermé

Question

Bonjour,  
Je fait appel à nouveau à vous, car je rencontre un problème assez complexe à résoudre mais en apparence simple. J'ai besoin de relever dans un chemin d'accès la dernière partie de l'adresse uniquement dans l'adresse : "C:\Users\Maison\Documents\Mon Addon Perso\" par exemple la valeur qui m'intéresse est "Mon Addon Perso". Mais, le soucis c'est qu'il y a plusieurs nom d'addons possibles certains ont des espaces d'autres non, d'autres encore ont des points enfin sa dépend. La seule chose qui est commune c'est que c'est la partie qui se trouve à l'avant dernier anti-slash (\). J'aimerais donc récupérer cette valeur et ceux peut importe son nom qu'elle soit avec espace ou que le texte fasse 3 mots ou 10 mots peut importe, ce qui compte c'est de le récupérer et de placer sa valeur dans une variable. Mais, attention je ne souhaite pas le supprimer de l'adresse je veut seulement récupérer sa valeur et la mettre dans une variable sans le supprimer.  

Merci d'avance à tout ceux ou celles qui pourront m'aider.  

Cordialement

lermite222 · Answer

Bonjour,
Voir avec
        Dim chemin As String = "C:\Users\Maison\Documents\Mon Addon Perso\LeFichier.ext"
        Dim S1 As String = Microsoft.VisualBasic.Left(chemin, InStrRev(chemin, "\") - 1)
        Dim DerRep As String = Microsoft.VisualBasic.Mid(S1, InStrRev(S1, "\") + 1)
        Label1.Text = DerRep
A+

pilotepro · Answer

Bonsoir,
Une nouvelle fois merci pour votre aide lermite222 !
Cela marche à merveille.

Bonne fin de soirée

Cordialement
Pilotepro

lermite222 · Answer

Re,
Note qu'il y a une façon plus simple de faire mais je n'y ai pas pensé quand je t'ai répondu.
        Dim TB() = Split("C:\Users\Maison\Documents\Mon Addon Perso\LeFichier.ext", "\")
        Label1.Text = TB(UBound(TB) - 1)
A+

[V.B 2010 Express]Récupérer partie d'adresse

3 réponses

Discussions similaires