Hola. Estoy haciendo una aplicacion que maneja los archvios de mi computadora.
Para esto necesito sabes cuantos archivos (bmp por ejemplo) hay en X carpeta.
Para eso estoy haciendo lo siguiente:
Código:
Dim Files As Integer
Dim BMPFile as String
Files = 0
BMPFile = Dir$(CarpetaX & "*.bmp")
Do While BMPFile <> ""
Files = Files + 1
BMPFile = Dir$
Loop
Eso si no me equivoco anda bien (aunque tengo la duda de si suma o no uno de mas).
Bueno, pero el gran problema esta en que no se como hace para poder contar tambien todos los que estan incluidos en las subcarpetas de X, necesito alguna forma de hacerlo automatico sin que el usuario tenga que poner una por una.
Alguien sabe como hacer?
MUCHAS GRACIAS!
Pato!