Hola en internet encontre esta pagina en ingles
http://www.devx.com/vb2themax/Tip/19057
En la que la funcion listfiles devuelve un array con todos los archivos de un directorio y si pones true o false devuelve todos los archivos del arbol del directorio.
En el proyecto para que funcione tienes que hacer referencia a
Microsoft Scripting Runtime
que se hace arriba en proyecto + referencias..
CUIDADO QUE RUTA PONES en la funcion PORQUE SI HAY MUCHOS ARCHIVOS........
Como tu disco duro sea C:\ y pongas esa ruta nada mas va tardar un rato....
REVISA EL CODIGO
son 2 funciones lo unico que la primera llama a la segunda.