Imports System
Imports System.IO
 
Class App
 
   Shared Sub Main()
    Dim di As DirectoryInfo = New DirectoryInfo("c:\")
    Dim dirs As FileSystemInfo() = di.GetDirectories("*")
    Dim diNext As DirectoryInfo
    For Each diNext In dirs
      Console.WriteLine("Directory: " & diNext.FullName)
      Dim fils As String() = IO.Directory.GetFiles(diNext.FullName, "*")
      Dim File As String
      For Each File In fils
        Console.WriteLine("Datei: " & File)
      Next
    Next
   Console.ReadLine()
   End Sub
End Class