Поиск файлов txt внутри данной папки с подпапками?

Question

Может ли кто-нибудь сказать мне, как я могу найти файлы * .txt внутри данной папки, внутри которой есть подкадры в структуре 12345 \ 3\ 128 \ txt \ 100.txt, основная папка может содержать другие подпапки или txt файлы, но я хочу только получить файлы txt, которые находятся во вложенных папках формата 12345 \ 3\ 128 \ txt \ 100.txt. то есть текстовые файлы внутри все тхт папки

Я попытался это:

Dim txtFilesArray As String() = Directory.GetFiles(targetDirectory, "*.txt", SearchOption.AllDirectories) 

Но он получает все текстовые файлы?

Answer 1

Dim txtFiles = Directory.EnumerateFiles(targetDirectory,"*.txt",SearchOption.AllDirectories) 
      .Where(Function(f) f Like "*\#*\#*\#*\txt\#*.txt") 

где # соответствует любой цифре от 0 до 9 и * спичек любые 0 или более символов

или медленнее RegEx версии будет примерно

Dim txtFiles = Directory.EnumerateFiles(targetDirectory,"*.txt",SearchOption.AllDirectories) 
      .Where(Function(f) RegEx.IsMatch(f, ".*\\\d+\\\d+\\\d+\\txt\\\\d+\.txt")) 

For Each txtFile In txtFiles 
    '... 
Next 

Answer 2

Это будет возвращать все файлы, но те, которые содержатся в path:

Dim path = "C:\" 
Dim di As New DirectoryInfo(path) 
Dim files = di _ 
    .GetFiles("*.txt", SearchOption.AllDirectories) _ 
    .Where(Function(info) info.DirectoryName <> path) _ 
    .Select(function(info) info.FullName) _ 
    .ToArray()