Contar los Archivos de un Directorio

Como puedo saber la cantidad de archivos que hay en una carpeta?

Buenas, una manera :

Código:

---

Dim cont As Integer
Dim directorio As String


directorio = Dir(ruta & "\*.*")


Do While directorio <> ""


cont = cont + 1


directorio = Dir
Loop


If cont > 0 Then MsgBox cont

---

Gracias Jasall,
Pero en la carpeta tengo sub carpetas y estas pueden contener archivos, y quisiera tambien contar estos archivos contenidos en las subcarpetas.

En el Api guide tenes un ejemplo


www.allapi.net


esel ejmplo que usa FindFirsFile y FindNextFile


salu2