Sub GetFiles(ByVal path As String, ByVal pattern As String, ByRef arr As _
    ArrayList)
        arr.AddRange(IO.Directory.GetFiles(path, pattern))
        For Each s As String In IO.Directory.GetDirectories(path)
            getFiles(s, pattern, arr)
            Application.DoEvents()
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        BackgroundWorker1.RunWorkerAsync()
        'AUFRUF
        Dim arr As New ArrayList
        Me.GetFiles("C:\Users\Test\Desktop\Symbole", "*.*", arr)
        Me.ListBox1.Items.AddRange(CType(arr.ToArray(GetType(String)), String( _
          )))
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        ' Hier
    End Sub

---------------
VB.NET macht Spaß!