---

Jeg vil gerne ha listet mappenavne fra en given mappe op i en combobox
men hvordan gør jeg. Jeg har prøvet lidt men kan ikke få det til at
virke. En Dirlistbox dur ikke til formålet.

Søren

---

Private Sub Form_Load()

Dim fso As Object
Dim oFolders As Object
Dim oFolder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolders = fso.GetFolder("C:\")

For Each oFolder In oFolders.subFolders

Combo1.AddItem oFolder.Name

Next

End Sub


"madsen" <taske@mail.dk> wrote in message
news:a3eef75e.0209100532.37c51d5f@posting.google.com...
> Jeg vil gerne ha listet mappenavne fra en given mappe op i en combobox
> men hvordan gør jeg. Jeg har prøvet lidt men kan ikke få det til at
> virke. En Dirlistbox dur ikke til formålet.
>
> Søren