Public StartPath As String = "C:\Windows"
    Public SearchAt as String = "*.vb"
    Public arFiles() As String
    Public nCountFound As Long
    Public nCountAr As Long
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim x As Long
        MyGetFiles(StartPath, SearchAt, True)
        ReDim Preserve arFiles(nCountAr)
        MessageBox.Show("es wurden " & arFiles.Length - 1 & " Dateien in " & _
          StartPath & " gefunden!")
    End Sub
 
    Private Sub MyGetFiles(ByVal MyPath As String, ByVal SearchString As _
      String, Optional ByVal isFirst As Boolean = False)
        If isFirst = True Then
            nCountAr = 0
            nCountFound = 0
        End If
        Dim x As Long
 
        Dim arCurrentFolders() As String = System.IO.Directory.GetDirectories( _
          MyPath)
 
        For x = 0 To arCurrentFolders.Length - 1
            MyGetFiles(arCurrentFolders(x), SearchString)
        Next
 
        Dim arCurrentFiles() As String = System.IO.Directory.GetFiles(MyPath, _
          SearchString)
        For x = 0 To arCurrentFiles.Length - 1
            If nCountFound = nCountAr Then
                nCountFound += 10
                ReDim Preserve arFiles(nCountFound)
            End If
            arFiles(nCountAr) = arCurrentFiles(x)
            nCountAr += 1
        Next
    End Sub