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