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

Résolu
pilotepro Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

3 réponses

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
1
pilotepro Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   7
 
Bonsoir,
Une nouvelle fois merci pour votre aide lermite222 !
Cela marche à merveille.

Bonne fin de soirée

Cordialement
Pilotepro
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0