Как пропустить скрытые папки и файлы

If sf.Attributes = FileAttributes.Hidden Then.....

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            Pu = FolderBrowserDialog1.SelectedPath.ToString
        End If
    End Sub
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim files()
        files = IO.Directory.GetFiles(Pu, "*.avi", IO.SearchOption.AllDirectories)
        ListBox1.Items.AddRange(files)
    End Sub

         Dim files() As FileInfo
        Dim dir As New DirectoryInfo(Pu)
        files = dir.GetFiles("*.avi")
        For Each file In files
            If file.Attributes <> FileAttributes.Hidden Then
                ListBox1.Items.Add(file.Name)
            End If
        Next

   Private Sub Search(ByVal fold As String, ByVal mask As String, ByVal Recur As Boolean)
        Dim stack As Stack(Of String) = New Stack(Of String)
        stack.Push(fold)
        Do
            fold = stack.Pop()
            Try
                Dim files() As String = System.IO.Directory.GetFiles(fold, mask)
                For i = 0 To files.Count - 1
                    ListBox1.Items.Add(files(i))
                Next
                If Recur Then 'Если необходимо сканировать подпапки
                    For Each folder In IO.Directory.GetDirectories(fold)
                        stack.Push(folder)
                    Next
                End If
            Catch ex As Exception
                'можно вывести информацию об ошибке
            End Try
        Loop Until stack.Count = 0
    End Sub

Search("D:\1", "*.*", True) 'путь к каталогу / маска файлов / искать ли в подпапках

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Search("d:\", "*.*", True) 'путь к каталогу / маска файлов / искать ли в подпапках
   End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If BackgroundWorker1.IsBusy = False Then BackgroundWorker1.RunWorkerAsync()
    End Sub

 Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Search("D:\", "*.*", True) 'путь к каталогу / маска файлов / искать ли в подпапках
    End Sub

 Invoke(Sub() ListBox1.Items.Add(files(i)))

 Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        MsgBox("Завершено!")
    End Sub

Invoke(Sub() Label1.Text=Listbox1.Items.Count)

Invoke(Sub() Label1.Text=Listbox1.Items.Count.ToString)