archivos con expresiones regulares

Dim rgx As Regex = New Regex("[^a-z]")

Dim archivosTxt() As String = Directory.GetFiles("carpeta_origen, "*.*").Where(Function(c) rgx.IsMatch(Path.GetFileName(c))).ToArray