' 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