Поиск на диске, исключая определенные папки

Imports System.IO
Imports System.Collections.Concurrent
Imports System.Threading
Imports System.Threading.Tasks
 
Public list1 As New List(Of String) 'список папок в найденных и доступных дисков
Public  mask1 As String() = {"*.xmcd", "*.dfr", "*.mcd"}' маски
Public  filtr1 As String() = {"Windows", "Program Files", "RECYCLE", "System Volume Information"}' подстроки для исключения в списке папок для поиска
 
'функция поиска-------------------------------------------------------------------------
Public Function CollectFiles(ByVal directory As DirectoryInfo, ByVal pattern As String) As List(Of String)
        Dim queue As New ConcurrentQueue(Of String)()
        InternalCollectFiles(directory, pattern, queue)
        Return queue.AsEnumerable().ToList()
    End Function
 
    Public Sub InternalCollectFiles(ByVal directory As DirectoryInfo, ByVal pattern As String, ByVal queue As ConcurrentQueue(Of String))
        On Error Resume Next
        For Each result As String In directory.GetFiles(pattern).[Select](Function(file) file.FullName)
            queue.Enqueue(result)
        Next
        Task.WaitAll(directory.GetDirectories().[Select](Function(dir) Task.Factory.StartNew(Sub() InternalCollectFiles(dir, pattern, queue))).ToArray())
           End Sub
 
'запуск поиска -------------------------------------------------------------------------
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim serch1 As New Thread(AddressOf ThreadProc)
       serch1.Start()
End Sub
 
Private Sub ThreadProc()
 For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            If Drive.DriveType = IO.DriveType.Fixed Then
 
                If Drive.IsReady = True Then
 
                    On Error Resume Next
                    Dim directory1 As DirectoryInfo = New DirectoryInfo(Drive.Name)
 
                    Dim Dir() As String = IO.Directory.GetDirectories(Drive.Name)
                    For Each D As String In Dir
                        ListBox1.Items.Add(Drive.Name & IO.Path.GetFileName(D))
 
' не могу исключить из списка не нужные папки для поиска
 
 
                     'создание папки для копирования файлов
                      IO.Directory.CreateDirectory(Application.StartupPath.ToString & "backup")
 
          End If
            End If
        Next
Next
 
 
End Sub

        Dim d As DirectoryInfo
        d.GetFiles()

       Private Files As List(Of FileInfo)
 
    ''' Поиск файлов
    ''' </summary>
    ''' <param name="path">Директория поиска</param>
    ''' <param name="list">Коллекция (FileInfo)</param>
    ''' <param name="Subf">Поиск в подпапках</param>
    ''' <remarks></remarks>
    Public Sub GetFiles(ByRef path As String, ByRef list As List(Of FileInfo), ByRef Subf As Boolean)
        Dim stack As Stack(Of String) = New Stack(Of String)
        stack.Push(path)
        Do
            path = stack.Pop()
            Try
                If Subf Then
                    For Each folder In FileIO.FileSystem.GetDirectoryInfo(path).EnumerateDirectories
                        Select Case folder.Name
                            Case "Windows", "Program Files", "$RECYCLE.BIN", "System Volume Information"
                            Case Else
                                stack.Push(folder.FullName)
                        End Select
                    Next
                End If
                For Each file As FileInfo In FileIO.FileSystem.GetDirectoryInfo(path).EnumerateFiles()
                    Select Case file.Extension.ToLower
                        Case ".xmcd", ".dfr", ".mcd"
                            list.Add(file)
                    End Select
                Next
            Catch ex As Exception
            End Try
        Loop Until stack.Count = 0
    End Sub
 
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Files = New List(Of FileInfo)
Dim serch1 As New Thread(AddressOf ThreadProc)
       serch1.Start()
End Sub
 
Private Sub ThreadProc()
 For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            If Drive.DriveType = IO.DriveType.Fixed Then
                If Drive.IsReady = True Then
                    GetFiles1(DI.Name, Files, True)
          End If
            End If
Next
        For Each t In Files
            ListBox1.Items.Add(t.FullName)
        Next
End Sub

 Dim ff = (From dd In dr.AsParallel Select Directory.GetFiles(dd, "*.txt", SearchOption.TopDirectoryOnly)).ToArray
For Each ar As String() In ff
    ListBox1.Items.AddRange(ar)
Next