Public Sub ProcessDirectory(ByVal targetDirectory As String)
        Dim subdirectoryEntries As DirectoryInfo()
        Dim dir As New DirectoryInfo(targetDirectory)
 
        Try
            If (dir.Exists) Then
                subdirectoryEntries = dir.GetDirectories
                ' Diese Prozedur rekursiv aufrufen
 
                For Each subdirectory As DirectoryInfo In subdirectoryEntries
 
                    ListBox1.Items.Add(subdirectory.FullName)
 
                    ProcessDirectory(subdirectory.FullName)
 
                Next subdirectory
            Else
                Dim strBox As String = "Verzeichnis: " & targetDirectory & "" & _
                  "ist" & _
                  "nicht vorhanden!"
                ListBox1.Items.Add(strBox)
            End If
        Catch ex As Exception
            Dim strBox As String = String.Format("Auf Verzeichnis '{0}' kann" & _
              "nicht zugegriffen werden.", targetDirectory)
            ListBox1.Items.Add(strBox)
        End Try
    End Sub

        Dim dateT As DateTime = DateTime.Now
 
        Me.ProcessDirectory("D:\")
 
        ListBox1.Items.Add(String.Format("{0} Einträge.", ListBox1.Items.Count))
        ListBox1.Items.Add(DateTime.Now.Subtract(dateT).ToString())

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein