Jag vill lista alla undermappar i en bestämd mapp i en ListBox, hur gör jag?
Vet hur man gör i ASP, men det funkade inte i VB :-)

/Jermy

kan man inte göra det med en dirlistbox.

Jo, men jag vill bara se undermapparna i den bestämda mappen, inget annat.

Jag tycks minnas att någon nämnt FSO för såna här uppgifter, men har inte provat det själv. Här kommer i stället en skitig lösning. Lägg in en DirListBox med Visible=False samt en vanlig synlig listbox.

<code>
Dim strMapp, strKataloger As String
Dim I As Long
strMapp = "C:\Temp"
Dir1.Path = strMapp
For I = 0 To Dir1.ListCount - 1
List1.AddItem Right(Dir1.List(I), Len(Dir1.List(I)) - Len(strMapp) - 1)
Next I
</code>
Mvh, Janne

Lägg in "Microsoft Scriping Runtime" i referenser.
<code>
Dim Fso As New FileSystemObject
Sub ListSubDirs(Path as String)
Dim SubDir as Folder
For Each SubDir In Fso.GetFolder(Path).SubFolders
List1.AddItem SubDir.Name
Next SubDir
End Sub
</code>

Mer information om FileSystemObject (och tillhörande objekt): http://msdn.microsoft.com/library/en-us/script56/html/jsFSOTutor.asp

Tack MizardX, precis vad jag behövde!