Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim oDir As IO.DirectoryInfo
        oDir = New IO.DirectoryInfo(InputBox("Bitte Verzeichnis eingeben:"))
 
        ' alle Dateien des Ordners ermitteln 
        ' und in der ListBox anzeigen
        Rekursiv(oDir)
    End Sub
 
 
 
    Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
        Dim oSubDir As IO.DirectoryInfo
        Dim oFile As IO.FileInfo
 
        ' zunächst alle Dateien des Ordners aufspüren
        For Each oFile In oDir.GetFiles()
            With oFile
                ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab & _
                  .Length & vbTab & .LastWriteTime)
            End With
        Next
 
        ' Jetzt alle Unterverzeichnis durchlaufen
        ' und die Prozedur rekursiv selbst aufrufen
        For Each oSubDir In oDir.GetDirectories()
            Rekursiv(oSubDir)
        Next
    End Sub
 
 
End Class