Copiar Foto Activa A Carpeta

juan007
02 de Septiembre del 2005
Compañeros(as)

Les cuento que aun continuo con el problema de copiar la foto a una carpeta:

Tengo dos variables DestinoFoto y RutaFoto, para el caso de la primera variable la linea de codigo (DestinoFoto)

DestinoFoto = App.Path & "Socios"

y para el caso de la segunda la saco del cuadro de dialogo:

RutaFoto = CommonDialog1.FileName

hasta ahora todo bien pero cuando hago esto para copiar a la foto
FileCopy RutaFoto, DestinoFoto

me arroja un error 78 algo que esta mal la ruta, y esta todo bien yo supongo y segun lo que he investigado es porque tengo la foto cargada en el formulario y se esta ocupando.

ENTONCES cual seria la solucion, como hago para copiar la foto... encontre una funcion en este mismo foro que se supone que lo hace:

Private Function Copiar(ByVal RutaFoto As String, ByVal DestinoFoto As String) As Boolean
Dim intO As Integer, intD As Integer, byt1() As Byte
On Error GoTo Error_Copiar
intO = FreeFile
Open RutaFoto For Binary As #intO
' En el caso de que el fichero no fuera muy grande.
ReDim byt1(1 To LOF(intO))
'Si el fichero es demasiado grande, deberás implementar un buffer dimensionando 'byt1' al tamaño que tu veas y haciendo un bucle hasta que llegues a la longitud del fichero.
intD = FreeFile
Open DestinoFoto For Binary As #intD
Get #intO, , byt1
Put #intD, , byt1
Copiar = True
Salir_Copiar:
On Error Resume Next
Close #intO
Close #intD
Exit Function
Error_Copiar:
MsgBox Err.Description
Resume Salir_Copiar
End Function

pero me arroja el mismo error: Error de acceso a ruta o archivo...... es el mismo error que aparece cuando hago el filecopy

espero haberme explicado bien ya que me esta desesperando no poder solucionar esto, si alguno(a) de ustedes tenga algun codigo, alguna idea, o un ejemplo de copiar una foto a una carpeta, pero con la foto mostrandola osea ocupandola activa.

De antemano se agradece

Saludos desde Viña del, Mar CHILE

mvallejos
02 de Septiembre del 2005
La Variable DestinoFoto debe contener el nombre completo del archivo a copiar y no solo la carpeta.

DestinoFoto= App.Path & "SociosNombreFoto.Bmp"

Saludos



Alejandro L. S.
02 de Septiembre del 2005
Hola, como estas, espero que bien.
Mira en mi caso, tengo una aplicación que, cargo un archivo ejemplo Foto.Bmp a un PictureBox y si nodifico la foto o la duplico la mando a grabar con otro nombre pero desde el PictureBox con la instrucción SavePicture checa esta opcion enla ayuda de visual para que sepas como manipularlo, ok, espro y te ayude