Para yo contar los archivos que esten dentro de una carpeta hago lo siguiente:
Agrego la referencia: Microsoft Scripting Runtime
Y luego ...
Dim FS As New FileSystemObject
Archivos = FS.GetFolder("C:\WINNT").Files.Count
Pero....
Como hago para contar los que hay en las subcarpetas?????