Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        For Each file As FileInfo In GetFiles("C:\Program Files\Microsoft" & _
          "Visual Studio .NET 2003", "*.dll; *.exe", True)
            ListBox1.Items.Add(file.Name)
        Next
 
    End Sub
 
    Private Function GetFiles(ByVal path As String, ByVal searchMask As String, _
      ByVal searchSubDirs As Boolean) As FileInfo()
        Dim searchMasks() As String = Split(searchMask, ";")
        Dim files As New ArrayList
        Dim di As New DirectoryInfo(path)
        GetFiles(files, di, searchMasks, searchSubDirs)
        Return files.ToArray(GetType(FileInfo))
    End Function
 
    Private Sub GetFiles(ByVal files As ArrayList, ByVal di As DirectoryInfo, _
      ByVal searchMasks As String(), ByVal searchSubDirs As Boolean)
        Try
            For Each mask As String In searchMasks
                files.AddRange(di.GetFiles(mask.Trim()))
            Next
 
            If searchSubDirs Then
                For Each di In di.GetDirectories()
                    Application.DoEvents()
                    GetFiles(files, di, searchMasks, searchSubDirs)
                Next
            End If
        Catch ex As System.Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist