Sub getFiles(ByVal path As String, ByVal pattern As String)
        Me.ListBox1.Items.AddRange(IO.Directory.GetFiles(path, pattern))  diese _
          zeile möchte ich ersetzen mit
                For Each s As String In IO.Directory.GetDirectories(path)
            getFiles(s, pattern)
            Application.DoEvents()
            Me.TextBox2.Text = Me.ListBox1.Items.Count.ToString + " - " + s
        Next
    End Sub

 MsgBox(IO.Directory.GetFiles(path, pattern)).ToString()