Поиск файлов по маске - Visual Basic .NET (64441)

  Public Sub GetFiles(ByRef path$, ByRef list As List(Of FileInfo))
        Dim Dirs As IO.DirectoryInfo = New IO.DirectoryInfo(path)
        Dim ext$ = ".txt.zip.pdf"
        Try
            list.AddRange(Dirs.EnumerateFiles("*", SearchOption.AllDirectories).Where(Function(fi) ext.Contains(fi.Extension.ToLower)))
'или так
            'list.AddRange(Dirs.EnumerateFiles("*", SearchOption.AllDirectories).Where(Function(fi) fi.Extension.ToLower = ".txt" OrElse fi.Extension.ToLower = ".zip" OrElse fi.Extension.ToLower = ".pdf"))
        Catch ex As Exception
        End Try
    End Sub