Extraire une partie de chaine selon son contenu (VB.Net)

Partons du principe que j'ai l'adresse d'un fichier.
C:\Dossier\Fichiers\Perso\Son\Test.wav
Je voudrais que ma Sub, quand je lui passe ces paramètres :

---

Paramètre                             Réponse

---

C:\                                        Dossiers
C:\Dossiers\                          Fichiers
C:\Dossiers`\Fichiers\            Son
C:\Dossiers`\Fichiers\Son      Test.wav

---

En fait la procédure renvoie depuis le dernier caractère du paramètre jusqu'au slash suivant ou la fin.
Je planche sur ce problème depuis assez longtemps alors une petite source serait la bienvenue...
PS : J'ai fait une recherche mais infructueuse.
PS²: JE SUIS SOUS VB.NET

Merci, CFP.
Essayez les ReyComponents de renfield :

Salut ToiDebutantVB
Inspire toi de ce petit programme de test
Tu mets une feuille,2 zone de liste(nommées Listrep et Listfich),un bouton de commande (Command1)
Tu colles le code suivant dans la feuille et tu testes le programme
Cela devrait te guider dans ta recherche de solution
Bonne prog et à plus

Private Sub Command1_Click()
     chemin$ = "C:\Dossier\Fichiers\Perso\Son\Test.wav"
     Listrep.Clear
     Listfich.Clear
     ' chemin$ est le nom complet du fichier
     p% = 1 ' position des caractères dans chemin$
     ' repertoire$ = paramètre d'entrée et fichier$ = réponse
     ' on affiche le chemin
     Do
     ' la boucle demande 4 paramètres : chemin$,repertoire$,fichier$ et p%
     ' au cas où tu veux faire un sous-programme pour une seule ligne de réponse 
        If p% = 1 Then
           repertoire$ = Left$(chemin$, 3) ' répertoire racine
           p% = 4 ' pointe après le répertoire racine
        Else
           repertoire$ = repertoire$ + fichier$
        End If
        Listrep.AddItem repertoire$
        ' on affiche le fichier
        chn$ = ""
        Do
            car$ = Mid$(chemin$, p%, 1)
            p% = p% + 1
            If car$ = "\" Then
               chn$ = chn$ + "\": Exit Do
            End If
            chn$ = chn$ + car$
            If p% > Len(chemin$) Then Exit Do
        Loop
        fichier$ = chn$
        If p% > Len(chemin$) Then
           Listfich.AddItem fichier$
           Exit Do
        End If
        Listfich.AddItem Left$(fichier$, Len(fichier$) - 1)
    Loop
End Sub

Private Sub Form_Load()
     Listrep.Clear
     Listfich.Clear
End Sub
GRENIER Alain

Si j'ai bien compris ton truc ... ca fait ce que tu veux ... et c'est pas violent violent :S Public Function recup_dossier(ByVal adresse As String, ByVal recherche As String) As String Dim adresseTabString() As String = adresse.Split("\") Dim rechercheTabString() As String = recherche.Split("\") Return adresseTabString(rechercheTabString.Length - 1) End Function Tu l'appelles comme ca (les paramètres sont en dur là): Dim resultat As String resultat = recup_dossier("C:\Dossier\Fichiers\Perso\Son\Test.wav", "C:\Dossier\Fichiers\Perso\") Et tu auras resultat = "Son" Voila ...