ARRAY con ficheros

[mystereo]

Hola buenas, estoy intentando meter en un array de tipo FileInfo, unos archivos que hay en diferentes carpetas, es decir:

Carpeta1
---> Fichero1.txt
Carpeta2
----> Fichero2.txt
----> Fichero3.txt
Carpeta3
----->Fichero4.txt

Todos esos .txt quiero almacenarlos en un array. Ahora mismo tengo echo esto:

En este array obtengo todas las carpetas
Dim carpetas() As DirectoryInfo = New DirectoryInfo(raiz).GetDirectories
En este quiero que vayan los ficheros .txt
Dim files() As FileInfo

For Each carpeta As DirectoryInfo In carpetas
Dim ficheros As DirectoryInfo = New DirectoryInfo(raiz + carpeta.Name)
files = ficheros.GetFiles
Next

Cualquier ayuda es válida, gracias!