Visual Basic - Contar Imagenes de una carpeta

Life is soft - evento anual de software empresarial
   
Vista:

Contar Imagenes de una carpeta

Publicado por Cristian (4 intervenciones) el 26/08/2009 17:20:57
Hola a todos, mi consulta es la siguiente, deseo contar las imagenes que contiene una carpeta determinada (puede ser jpg,bmp,gif etc). Tengo el siguiente codigo:

Dim FS As New FileSystemObject
Archivos = FS.GetFolder("C:WINNT").Files.Count

pero me sirve para contar todos los archivos y yo solo quiero contar las imagenes.

de antemano muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Contar Imagenes de una carpeta

Publicado por jaime guerrero (361 intervenciones) el 26/08/2009 18:34:30
puedes hacer un bucle para que recorra la carpeta y cuente los archivos que tienen las extensiones que necesitas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar Imagenes de una carpeta

Publicado por Cristian (4 intervenciones) el 26/08/2009 21:38:55
Jaime, gracias por la respuesta, pero no tengo idea como se hace la solucion que me das, me podrias ayudar con el codigo?

atento a tus comentarios
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar Imagenes de una carpeta

Publicado por jaime guerrero (361 intervenciones) el 27/08/2009 00:09:17
hay un control en el que se puede mostrar los archivos que hay en una carpeta, pero como no tengo vb en este momento no me acuerdo. pero yo uso el siguiente metodo en excel para leer los archivos de una carpeta y obtener su nombre

Sub RepasarCarpeta()
'en este ejemplo sacamos los nombres de los archivos de la carpeta.
Dim i As Long
'dimensiones
Dim strArchivoExcel As String
Dim strNombreCarpeta As String

'carpeta a repasar
strNombreCarpeta = "C:\winnt\"

'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
i = 7

Hoja1.Range("C" & i & ":C100").Clear

'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
Hoja1.Range("C" & i).Value = strArchivoExcel
strArchivoExcel = Dir
i = i + 1
Loop

End Sub

espero que esto tambien funcione en vb6
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar Imagenes de una carpeta

Publicado por Cristian (4 intervenciones) el 27/08/2009 17:19:31
OK, voy a revisar y te comento, muchas gracias por tu respuesta

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar