Поиск файлов и сбой работы

 Private Sub ThreadTask()
        Try
 
            ListView1.Items.Add("Задача запущена", 2)
            For i As Byte = 0 To My.Computer.FileSystem.Drives.Count
                Search(My.Computer.FileSystem.Drives.Item(i).ToString, "*.*")
            Next
            ListView1.Items.Add("Сканирование завершено", 2)
 
 
        Catch ex As Exception
            MsgBox(ex)
        End Try
        
 
    End Sub
 
 Private Sub Search(ByVal fold As String, ByVal ParamArray mask() As String)
 
        'тело программы
 
        Dim Dirs As String()
        Dim files As String() = Nothing
        Try
            For Each M As String In mask
                files = System.IO.Directory.GetFiles(fold, M)
                If files.Length > 0 Then
                    Dim FullPath As String = files(files.Length - 1)
                    Dim s As String = String.Copy(FullPath)
                    TextRenderer.MeasureText(s, Me.LblObject.Font, Me.LblObject.Size, _flag)
                    LblObject.Text = s
                    Try
                        Dim Malware As String = CheckSignatures(FullPath)
 
                        Try
                            If Malware = "NOVIRUS" Then
                                If CheckBox1.Checked = True Then
                                    ListView1.Items.Add(FullPath, 2).SubItems.Add("Чистый объект")
                                End If
                            Else
                                ListView1.Items.Add(FullPath, 0).SubItems.Add(Malware)
                            End If
 
 
                        Catch
                        End Try
 
 
 
 
 
 
                    Catch
                        ' LblMalware.Text = "Не обработано"
                        ListView1.Items.Add(FullPath, 1).SubItems.Add("Не обработано. ( Отказано в доступе )")
                    End Try
 
 
                End If
                Application.DoEvents()
            Next
 
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly)
 
        Catch ex As Exception
        End Try
 
        Try
            If Dirs IsNot Nothing Then
                For Each cdir As String In Dirs
                    Me.Search(cdir, mask)
                Next
 
            End If
 
        Catch
        End Try
 
    End Sub

 Search(My.Computer.FileSystem.Drives.Item(i).ToString, "*.*")

For i As Byte = 0 To My.Computer.FileSystem.Drives.Count-1