Copiar Imagen a una Carpeta

[jsc_222]

Hola a todos.. tengo una duda.... Estoy realizando un Sistema contable para una empre"sita", en estos dias estuve programando la parte de Usuarios... y me pidieron que guardara la imagen del Usuario del Sistema..... se como cargar la ruta de la imagen a un textbox, pero lo que necesito es q copie la imagen y la pegue en una carpeta que yo cree, y ahi recien guardar la nueva ruta....y mostrarla en el picturebox, tambien deseo que al copiar la imagen en la nueva carpeta, deseo cambiar el nombre de la Imagen con el ID del Usuario osea 1.jpg 2.jpg para que asi se me facilite la consulta en el SQL. de antemano necesito su ayudaa!!!!!!

[Avellaneda]

Hola. Lo normal es guardar el nombre del archivo imagen en la propia tabla y desde ahí mostrarla.

Primero, suponemos que tienes abierto un recordset con el nombre "rs" y la tabla tiene un campo llamado "Foto" que es donde se guarda el nombre del archivo imagen.

Para copiar la imagen desde C: a una carpeta que se encuentra en la ruta de nuestra aplicación y se llama Imagenes:

FileCopy "c:\LaImagen.jpg", App.Path & "\Imagenes\" & rs!Id & ".jpg"

Para guardar el nombre del archivo imagen en la Tabla:

Código:

rs!Foto.Value =  rs!Id & ".jpg"
rs.Update 

Para mostrar la imagen en un control Image:

Código:

Image1.Stretch = True
Image1.Picture = LoadPicture(App.Path & "\Imagenes\" & rs!Foto.Value) 

Nota que puse un control Image y no un PictureBox, pues el control Image tiene la propiedad Stretch que ajusta la imagen al tamaño del control.

Un saludo

[skullsp]

hola, recomiendo que usen la api para copiar, porque muchas veces no funciona esa funcion... aca se las dejo

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Ej: CopyFile RutaDesde, RutaHasta, (y eso es para verificar si existe y reemplazarlo o renombrarlo)


saludos