XL 2003 Lister les dossiers d'un répertoire dans listbox sujet

Bonjour à tous,
J'aurai besoin de votre aide pour constituer une macro.

Je souhaiterai lister les dossiers (uniquement : pas les sous-dossiers) d'un répertoire choisi (par exemple "L:\Dossier" dans un listbox dénommé "txt_folder" aprés avoir cliqué sur un bouton nommé "Btn_go".

Pourriez-vous m'aider a la constitution du code svp ? car je tourne en rond et n'arrive pas :(.

Code :

---

    Private Sub Btn_go_Click()
        Dim i As Integer
            For i = 0 To My.Computer.FileSystem.GetFiles("L:\").Count - 1
            txt_folder.Items.Add (My.Computer.FileSystem.GetFiles("L:\").Item(i))
        Next i
    End Sub

---

Merci d'avance,
Fab