Buscar todos los archivos en todos los directorios

Dim array() As String = Directory.GetFiles(ruta_carpeta, "*", SearchOption.AllDirectories)

variantes GetFiles

Obtener los nombres de archivo

Dim archivos() As String = Directory.GetFiles(dir, "*.txt").Select(Function(c) Path.GetFileName(c)).ToArray

Obtener archivos específicos

Dim rx As Regex = New System.Text.RegularExpressions.Regex("^(FCV|NCV|FDV|BLV)([0-9]{10})([A-Z]+)(.TXT|.txt)$")

Dim archivos() As String = Directory.GetFiles(dir, "*.*").Where(Function(c) rx.IsMatch(Path.GetFileName(c))).ToArray

Obtener archivos específicos2

Dim rx As Regex = New System.Text.RegularExpressions.Regex("^(FCV|NCV|FDV|BLV)([0-9]{10})([A-Z]+)(.TXT|.txt)$")

Dim result() As String = (From v In Directory.GetFiles(dir, "*.*") Where rx.IsMatch(Path.GetFileName(v))).ToArray

^(.+)(.txt|.TXT|.XML)$
^.+$  todos los archivos

Archivos con extensión específica

Dim ext() As String = {".txt", ".XML"}
Dim dinfo As DirectoryInfo = New DirectoryInfo("C:\carpeta")
Dim xfiles() As FileInfo = dinfo.GetFiles.Where(Function(f) ext.Contains(f.Extension.ToLower)).ToArray

Ejemplo1:

Dim files() As String = Directory.GetFiles("C:\carpeta").Where(Function(f) f.EndsWith(".txt")).ToArray

Ejemplo2:
Dim xfiles() As FileInfo = New DirectoryInfo("C:\carpeta").GetFiles.Where(Function(f) Regex.IsMatch(f.Name, "\.(txt|mp3|xml)$")).ToArray


fuente
fuente2

Obtener todos los archivos txt de las carpetas y subcarpetas

Dim logtxt() As String = Directory.GetFiles(rutaempresa & "\" & "compra", "*.txt", SearchOption.AllDirectories)

Obtener archivos de un directorio con filtro-patrón de selección

Dim directorio As String = "D:\compra"
        Dim rgx As String = "2007-06*.*"
        Dim dirs As String() = Directory.GetFiles(directorio, rgx, SearchOption.TopDirectoryOnly).ToArray

fuente

Obtener archivos con determinada extensión

 Dim dir As String = Directory.GetCurrentDirectory()
 Dim files() As String = Directory.GetFiles(dir, "*.*")

.Where(Function(s) s.EndsWith(".csv") OrElse s.EndsWith(".xml")).ToArray()

Obtener archivos de la carpeta Debug y mostrarlos

Dim files() As String
files = System.IO.Directory.GetFiles(Application.StartupPath, "*.sql")
Dim x As String
For Each x In files
MessageBox.Show(x)
Next

'Las 6 líneas de arriba se pueden reducir a:
For Each x As String In System.IO.Directory.GetFiles(Application.StartupPath, "*.sql")
MessageBox.Show(x)
Next