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

Формулировка задачи:

Как реализовать поиск файлов по маске "*.txt"? Файлы могут быть в любой папке диска C: или даже D:

Решение задачи: «Поиск файлов по маске»

textual
                            Листинг программы 
                        

                              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
                        