Verzeichnisse ermitteln
Alle Unterverzeichnisse im ausgewählten Hauptverzeichnis ermitteln.
' Alle Unterverzeichnisse im Verzeichnis C:\Windows ermitteln Private Sub Dateien() Dim TmpVerz As IO.DirectoryInfo Dim Verzeichnis as New IO.DirectoryInfo("C:\Windows") For Each Datei in Verzeichnis.GetFiles MsgBox(TmpVerz.Name) Next End Sub