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

"Sir, we?re surrounded."
"Excellent, we can attack in any direction"