Public Class Form1
    Sub GetFiles(ByVal path As String, ByVal pattern() As String, ByRef arr As _
      ArrayList)
        For i As Integer = 0 To pattern.Length - 1
            arr.AddRange(IO.Directory.GetFiles(path, pattern(i)))
        Next
        For Each s As String In IO.Directory.GetDirectories(path)
            GetFiles(s, pattern, arr)
            Application.DoEvents()
        Next
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'AUFRUF
        Dim arr As New ArrayList
        Dim pattern() As String = {"*.dll", "*.ocx"}
        Me.GetFiles("C:\Windows", pattern, arr)
        Me.ListBox1.Items.AddRange(CType(arr.ToArray(GetType(String)), String( _
          )))
    End Sub
End Class
gruss
 
mikeb69