listbox

Hvordan får jeg alle (navne) undermapper i en bestemt mappe ind i en listbox. Fandt denne kode, som lister filnavne op en mappe.

Private Sub CommandButton1_Click()


    'Files in folder listed in Listbox1
    Dim FSO As Object, fld As Object, Fil As Object
    Dim SubFolderName As String
    Dim i As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Me.ListBox1.Clear 'clear previous entries
    SubFolderName = "C:\Skabeloner\Breve"
    Set fld = FSO.GetFolder(SubFolderName)
    For Each Fil In fld.Files
        i = i + 1
        Me.ListBox1.AddItem Fil.Name
       
    Next Fil
   
   
   
End Sub