Mira esta funcion:
' ( @ @ )
'-----------------------------oOOo-(_)-oOOo--------------------------
'| |
'| CREADO POR: Andrés González García (Taribo) |
'| UTILIDAD: Numero de archivos de una carpeta con posibilidad |
'| de pasar un filtro y una extension |
'| FECHA: 29 de abril de 2008 |
'| AGRADECIMIENTOS:Foro de Access y VBA |
'| OBSERVACIONES:
http://www.mvp-access.com/foro/ |
'---------------------------------------Oooo.------------------------
' .oooO ( )
' ( ) ) /
' \ ( (_/
' \_)
Public Function NumArchivosEncarpeta(Ruta As String, Optional Filtro As String, Optional Extension As String) As Integer
Dim Contador As Integer
If Dir(Ruta & "\*" & Filtro & "*" & "." & Extension) <> "" Then
Contador = 1
While Dir <> ""
Contador = Contador + 1
Wend
Else
Contador = 0
End If
NumArchivosEncarpeta = Contador
End Function
Un saludo