01/03/2006, 04:26
|
| | | Fecha de Ingreso: abril-2004
Mensajes: 7
Antigüedad: 20 años, 1 mes Puntos: 1 | |
| El codigo..
Pues aqui lo tienes...
(añades un filelistbox y un dirbox y lo ocultas)
Dim g,fichero
' cambio el path del dirbox a \path del programa\imagenes\
Dir1.Path = App.Path + "\imagenes\"
Dir1.Refresh
' cambio el path del filebox a \path del programa\imagenes\
File1.Path = Dir1.Path
File1.Refresh
' defino la mascara de ficheros que quiero leer
File1.Pattern = "*.BMP;*.ICO;*.WMF;*.CUR;*.JPG;*.GIF;*.TIF"
show
For g = 0 To File1.ListCount - 1
fichero = File1.List(g)
? fichero
next
ya esta! el file1.listcount me da el numero de ficheros que hay con la condicion del filtro
y el file1.list(g) el nombre del fichero numero X
En fin, asi lo resolvi... ya que no me conocia los parametros de la funcion DIR porque no tengo el MSDN o como se escriba |