Получить все файлы из директории с несколькими фильтрами

@Egor2014 · Регистрация: 22.10.2013

Author24 — интернет-сервис помощи студентам

Получаю файлы из папки, с одним фильтром, а необходимо 2-3 фильтра

VB.NET

1	Dim Files() As String = IO.Directory.GetFiles("C:\Dir", "*.txt", IO.SearchOption.TopDirectoryOnly)

Есть вариант еще одну строку добавить с другим фильтром, а можно ли как-то объединить типа: "*.txt" or "*.html"

@Gilford · 03.08.2016, 16:00

Нашел рабочий вариант на C#http://www.codeproject.com/Que... ke-jpg-png
Сам код на VB выглядит так

VB.NET

Dim path As String = "C:\Dir"
        Dim di As New DirectoryInfo(path)
        Dim fi As FileInfo() = New String() {"*.txt", "*.html"}.SelectMany(Function(i) di.GetFiles(i, SearchOption.AllDirectories)).Distinct().ToArray()
        Dim filenames As String() = fi.[Select](Function(k) k.Name).ToArray()

@ovva · 03.08.2016, 19:44

На мой взгляд, есть более простое решение

VB.NET

Dim ff As New List(Of String)
For Each foundFile As String In My.Computer.FileSystem.GetFiles("C:\03", FileIO.SearchOption.SearchTopLevelOnly, {"*.txt", "*.pdf", "*.html"})
    ff.Add(foundFile)
Next

Добавлено через 11 минут
Или просто (Files - ReadOnlyCollection(Of String))

VB.NET

1	Dim Files = My.Computer.FileSystem.GetFiles("C:\03", FileIO.SearchOption.SearchTopLevelOnly, {".txt", ".pdf", "*.html"})

	03.08.2016, 19:44

Опции темы

Получить все файлы из директории с несколькими фильтрами

Решение