Quiero que en el form_load el programa busque todas las...

[fran_dark]

Hola muy buenas quiero que en el form_load el programa busque todas las imágenes de MIS DOCUMENTOS del PC en el que lo ejecute. Saludos y gracias.(llevo 1 mes en vb asi que no soy experto :P)

[Jhonnyf]

Y una vez que los encuentre? simplemente mostrarlo en algun sitio tipo un Listbox??

Usa el control FileListBox, dale la ruta de "Mis Documentos" y en su propiedad pattern le pones las extensiones que quieres que te filtre sepandalo con punto y coma ";"

*.jpg;*.png;*.bmp ..........etc

[fran_dark]

por ejemplo, las guarde en una carpeta.

[fran_dark]

gracias jhonnyf. ahora deseo por ejemplo las guarde todas las de mis documentos en una carpeta.saludos

[David]

¿Ya lograste hacer lo que te comentó Jhonnyf?.

Si así es, lo único que necesitas es recorrer el listado y copiar los archivos:

Código:

Dim Looping As Integer
For Looping = 0 To File1.ListCount - 1
     FileCopy File1.Path & "\" & File1.List(Looping), "C:\carpeta\" & File1.List(Looping)
Next Looping

[intersof]

Sip.He hecho 1 dirlistbox y un filelistbox y les he "parchado" con (path). lo que no sé ahora es donde colocar el último codigo que me has dado david el grande; en el form_load....etc.etc y esplicame su codigo brevemente porfavor.
saludos

[David]

Lo que hace ese código como ya lo expliqué es recorrer el listado y copiar los archivos. ¿Dónde colocar el código?. Pues depende en qué momento quieres que copie los archivos, si quieres que al entrar en la ventana usa el evento Load, si quieres que sea en un botón, usa el evento Click de ese botón.

[intersof]

lo he programado para que cuando haga clic en el filelistbox cuando haga clic en una imagen, se copie esa imagen. y lo hago y me sale un error: error 76 no se a encontrado la ruta de accesso.
ayuda porfavor

[David]

¿Puedes poner el código que estás usando?.

Ya de paso coloca un MsgBox o ejecuta paso a paso y mira cuál es la ruta que está devolviendo.

[intersof]

Como novato que soy, y si ustedes podéis ayudarme, aquí os dejo unas imágenes de lo que me muestra y que me miréis el error,por favor:


Y doy a depurar y sale esto:

saludos y gracias de antemano

[intersof]

si no veis bien las imagenes, la primera es: http://www.subirimagenes.com/otros-1-990492.html
la segunda: http://www.subirimagenes.com/otros-2-990495.html
y la tercera y última: http://www.subirimagenes.com/otros-3-990500.html

[David]

En el código yo puse que copiara a la carpeta:

Código:

C:\carpeta\

Verifica si esa carpeta existe.

[intersof]

ya me funcionó mil gracias david el grande

[intersof]

y ahora si usted quiere; el código para poder guardar todas las imagenes de la carpeta: mis documentos, a una carpeta: solo con clikar un voton¿? saludos

[David]

Pues solo necesitas poner ese código en el evento Click del botón .

[intersof]

Iniciado por David el Grande

Pues solo necesitas poner ese código en el evento Click del botón .

muchas gracias. FIN DEL TEMA