
02-11-2006, 17:11
|
 |
Manfinfler@

|
|
Registrado: Oct 2004
Posts: 482
FoquiMoney: 2.000
Gracias dadas: 12
Agradecido 0 vez en 0 posts
|
|
|
Re: Copiar imagenes que no se dejan copiar con VB
Ocupa esta funcion, ojo que los archivos deben estar cerrados, obvio, los patch, son la ruta completa mas la extencion, tanto el StartPath , como el EndPath , onda call CopyFile("C:\foto.jpg", "D:\foto2.jpg")
Public Sub CopyFile(StartPath As String, EndPath As String)
On Error GoTo error
FileCopy StartPath$, EndPath$
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
PD: Si en vez de copiar, quieres Mover el archivo, agrega esta linea en la funcion , debajo de FileCopy:
Kill StartPath$
|