contar numero de archivos existentes en una carpeta específica

[occam25]

Hola JuanPablo, prueba con esto a ver si te funciona..

Código:

    
    Dim Fichero As String
    Dim numF As Integer
    numF = 0
    Fichero = Dir("c:\RUTA\*.jpg")
    Do While Fichero <> ""
      numF = numF + 1
      Fichero = Dir
    Loop

(Cambia la ruta por la tuya, claro) ; )