contar numero de archivos existentes en una carpeta específica

[juanpablo3]

Hola a todos,

quiero saber cuantos dibujos tengo en una carpeta determinada del sistema. Los dibujos son de extensión .jpg pero no consigo hacerlo bien.

¿Alguién sabe cuál es el símbolo de cualquier caracter en vb6?

A lo que me refiero sería al típico "*.jpg" y así ir contando cuántos archivos jpg hay en la carpeta indicada pero el programa busca el archivo cuyo nombre es exactamente *.jpg.

Si alguien tiene alguna sujerencia de cómo resolver este problema, le estaré muy agradecido.

Muchas gracias

[Neoxs]

Hola, puedes poner un control File en tu Formulario, y tomar la propiedad ListCount para saber cuántos archivos muestra.
Para filtrar, y que solo muestre JPG, debe poner *.jpg en la propiedad Pattern del control File.
Espero que te sirva
Saludos

[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) ; )