'Rekursion
            For i = 0 To Dirs.Length - 1
                iAnzahl += FindFiles(Dirs(i).ToString)
            Next
            Return iAnzahl

    Public Function FindFiles(ByVal Path As DirectoryInfo) As Integer
        Dim iAnzahl As Integer
 
        If Not Path.Exists Then
            MessageBox.Show("Ungültiger Pfad")
            Return 0
 
        Else
            'Dateien im Ordner
            Dim Files() As FileInfo = Path.GetFiles()
 
            'Ordner im Ordner:
            Dim Dirs() As DirectoryInfo = Path.GetDirectories()
 
            'Dateien zählen
            iAnzahl += Files.Length
 
            'Rekursion
            For i As Integer = 0 To Dirs.Length - 1
                iAnzahl += FindFiles(Dirs(i))
            Next
            Return iAnzahl
        End If
 
    End Function