Jag har en Mapp i C:Mappen Heter "Mina Mappar" Kolla in www.mvps.org/vbnet och sök på: <code>Lista alla Subdirs i en specifik mapp
och i "Mina Mappar" finns ett visst antal mappar
och hur ska jag gå tillväga för att lista upp mapparna i varsin label?Sv: Lista alla Subdirs i en specifik mapp
Enumerating Folders using FindFirstFile & FindNextFile API, Advanced
eller
Performing Recursive Searches Using FindFirst and SearchTreeForFile
där finns lite rekursiva rutiner som fixar det du är ute efter.
/AndersSv: Lista alla Subdirs i en specifik mapp
Public Function ListDirs(ByVal Path As String)
Dim FileName As String
If Right(Path, 1) <> "\" Then
Path = Path & "\"
End If
FileName = Dir(Path & "*.*", vbDirectory)
If FileName = "." Then
Dir
FileName = Dir
End If
Do While Len(FileName)
If GetAttr(Path & FileName) And vbDirectory Then
ListDirs = ListDirs & FileName & vbCrLf
End If
FileName = Dir
Loop
End Sub