Lister les premiers sous repertoires dans list1 et les sous repertoires des repertoires dans list2

SAlut a tous,
voici mon probleme :
Je suis en train de faire un programme pour suivre mes nageurs...
Mon soucis :
Je travaille sous VB5,et je souhaiterai que les sous repertoires premier degré soient listés dans une listbox1 et les sous repertoires  second degré soient inscris dans une listbox2

Ex d'arborescence :
Database
   \___Benjamins
          \___ Marc
          \___ Brigite
          \___ Sophie
   \___Minimes
          \___ André
          \___ Céline
   \___Adultes
          \___ Sebastien
          \___Cassendra



et donc que dans ma listbox1 soit listé :
Benjamins
Minimes
Adultes

et que dans ma listbox2 soit listés les prénoms de mes nageurs

Merci pour vos reponses
(Je rappelle que je suis sous VB5)

Salut,

C'est un TreeView (pas une ListBox) qu'il te faut faire pour ceci... ;)
Je ne sais pas si tu as ça sous VB5, en tout cas moi j'utilise ce contrôle sous VB6...

@+
Hub's

mais j'ai besoin de faire apparaitre ca dans une liste box...

slt

Allons au plus simple :

1 - tu créer un projet avec une form et 2 listbox dedans

2 - tu colle le code suivant dans ta form

Public Function Liste_Rep(MyPath As String, MyList As ListBox)
        myname = Dir(MyPath, vbDirectory + vbHidden)
        Do While myname <> ""
            If myname <> "." And myname <> ".." Then
                If (GetAttr(MyPath & myname) And vbDirectory) = vbDirectory Then
                    MyList.AddItem (myname)
                End If
            End If
        myname = Dir
        Loop
End Function

Private Sub Form_Load()
    Liste_Rep "c:\", List1

End Sub

Private Sub List1_Click()
    If List1.ListIndex = -1 Or List1.ListCount = 0 Then Exit Sub
    List2.Clear
    Liste_Rep "c:\" & List1.Text & "\", List2
End Sub

Et voila !

PS: dans l'exemple les dossiers cachés apparaitrons aussi, il te suffit de supprimer "+ vbHidden" dans la fonction pour qu'ils n'apparaissent plus.

J'ai du mal m'exprimer ... mais en meme temps on y est presque :
Le code qui m'a été précedement donné me liste bien le contenu des repertoires et de mes sous repertoires...
le seul soucis c'est qu'il ne fait pas exactement ce que je voudrai :

je souhaiterai obtenir un resultat comme suit :

list1               List2
Benjamins           Marc
Benjamins           Brigitte
Benjamins           Sophie
Minimes             André
Minimes             Céline
Adultes             sebastien
Adultes             cassendra

slt

je vois pas trop le but mais bon.

colle le code suivant en remplacement du precedent :

Public Function Liste_Rep(MyPath As String, MyList1 As ListBox, MyList2 As ListBox)
Dim MyName As String
Dim MyName2 As String
Dim Rep(1 To 255) As String
Dim Nb_Rep As Byte
Dim i As Long

        MyName = Dir(MyPath, vbDirectory + vbHidden)
        Do While MyName <> ""
            If MyName <> "." And MyName <> ".." Then
                If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
                    Nb_Rep = Nb_Rep + 1
                    Rep(Nb_Rep) = MyName
                End If
            End If
        MyName = Dir
        Loop
        
        
For i = 1 To Nb_Rep
    MyName2 = Dir(MyPath & Rep(i) & "\", vbDirectory + vbHidden)
        Do While MyName2 <> ""
            If MyName2 <> "." And MyName2 <> ".." Then
                If (GetAttr(MyPath & Rep(i) & "\" & MyName2) And vbDirectory) = vbDirectory Then
                    MyList1.AddItem (Rep(i))
                    MyList2.AddItem (MyName2)
                End If
            End If
            MyName2 = Dir
        Loop
Next i
        
End Function

Private Sub Form_Load()
    Liste_Rep "c:\", List1, List2
End Sub

PS : dans le code precedent tu change juste "c:\" par le repertoire que tu veut.

Un grand merci !
c'est exactement ce que je voulais !

Encore une chose ... Désolé ...
En fait, chaque nageur est répertorié avec son prénom et son nom.
le nom est séparé du prénom par un séparateur :"_"
En fait, je voudrai que les noms soient listés dans la listbox2 et les prenoms dans la listbox3, le niveau des nageurs toujours dans la listbox1

met donc trois listbox et essaie ca :

Public Function Liste_Rep(MyPath As String, MyList1 As ListBox, MyList2 As ListBox, MyList3 As ListBox)
Dim MyName As String
Dim MyName2 As String
Dim Rep(1 To 255) As String
Dim Nb_Rep As Byte
Dim i As Long

        MyName = Dir(MyPath, vbDirectory + vbHidden)
        Do While MyName <> ""
            If MyName <> "." And MyName <> ".." Then
                If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
                    Nb_Rep = Nb_Rep + 1
                    Rep(Nb_Rep) = MyName
                End If
            End If
        MyName = Dir
        Loop
        
        
For i = 1 To Nb_Rep
    MyName2 = Dir(MyPath & Rep(i) & "\", vbDirectory + vbHidden)
        Do While MyName2 <> ""
            If MyName2 <> "." And MyName2 <> ".." Then
                If (GetAttr(MyPath & Rep(i) & "\" & MyName2) And vbDirectory) = vbDirectory Then
                    MyList1.AddItem (Rep(i))
                    MyList2.AddItem (Mid$(MyName2, 1, InStr(1, MyName2, "_") - 1))
                    MyList3.AddItem (Mid$(MyName2, InStr(1, MyName2, "_") + 1))
                End If
            End If
            MyName2 = Dir
        Loop
Next i
        
End Function

Private Sub Form_Load()
    Liste_Rep "c:\", List1, List2, List3
End Sub