SoloCodigo

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

revise la aplicacion que me enviaste pero no me resulta, la verdad es que nose muy como copiar una foto al parecer te copia archivos txt en fin

He intentado con el codigo que me enviaste este:

Dim ArchivoObj As Variant

DestinoFoto = App.Path & "\Socios"
Set ArchivoObj = CreateObject("Scripting.FileSystemObject") 'Crea un objeto tipo FileSystemObject
ArchivoObj.CopyFile RutaFoto, DestinoFoto 'Copia


Pero al hacer correr la aplicacion me da este error

Error 70 en tiempo de ejecucion

permiso denegado


Creoo que es porque tengo mostrando la foto en el formulario, te cuento que la ruta de la foto (RutaFoto) la saca a traves del cuadro de dialogo

RutaFoto = CommonDialog1.FileName


Bueno sabes nose me ocurre nada, llevo como 5 horas en lo mismo  he estado hace rato tratando de copiar la foto a la carpeta, siempre mostrando la foto en el formulario.

Bueno gracias por la ayuda

Seguiremos intentando

Hola DrakerDG.

Primero que todo gracias por tu interes en ayudarme, te cuento que con el ejemplo que me enviaste resulta perfectamente pero jejeje siempre hay un pero necesito acomodar tu codigo del ejemplo a mi aplicacion y hay varias lineas de codigo que no entiendo me gustaria saber si puedes explicarme ciertas lineas de codigo.

Por el momento estoy intentando modificarlas yo mismo segun mis requerimientos.

Te aviso cualquier cosa.

Nuevamente te agradesco

Te explico el la estructura if siguiente:


txtNew.Text es un string, específicamente el nombre de un archivo con todo y su path, la función Trim() los espacios en blanco del inicio y/o final de un string, que para el caso de un path no sirven de nada.  Seguido la condición ((Trim(txtNew.Text) & "a") <> "a", determina si realmente txtNew.Text no es una cadena vacía, pues si lo fuera "a" = "a".  Por medio del AND exigimos que a parte de no ser cadena vacía la extensión del archivo sea JPG.  La función Mid(,,) nos extrae los últimos cuatro caracteres y los compara con ".jpg".

Si el texto de txtNew.Text cumple con estas dos condiciones, por ejemplo la ruta siguiente:

"C:\Mi carpeta\Mi imagen.jpg"

Esta no es una cadena vacía y los últimos cuatro caracteres son ".jpg".  Por lo tanto entra al IF.

La sentencia On Error GoTo ErrorX es para controlar si existe algún error durante el proceso de copia.  De haber uno se va a la etiqueta ErrorX:.   De lo contrario continua a la sentencia siguiente, donde utiliza a fS para realizar la copia por medio del método CopyFile del cual los argumentos son el archivo origen seguido del archivo destino.

Luego actualiza el cuadro File2 por medio de la sentencia File2.Refresh.  La siguiente sentencia despliega un cuadro de texto por medio de Msgbox y listo.  Veo que desactivaste la sentencia que actualiza el cuadro de File2.  Esta acción actualiza el cuadro, es decir que muestra el nuevo archivo copiado.

MPathX


La función MPathX solo es de verificación, para que siempre él ultimo caracter del path sea un slash invertido "\", si la usas con la propiedad CommonDialog1.FileName, te da un error, puesto que esta función es solo para paths (rutas) sin el nombre del archivo. Es decir

Si MiPath es una variable tipo string y le asignamos el path determinado:

MiPath = "C:\Mis documentos\Mis imagenes"

Este path no tiene el slash invertido al final, en cambio al utilizar la función MPathX queda lo siguiente:

MiPath = MPathX("C:\Mis documentos\Mis imagenes")

Por lo que MiPath es ahora igual a:  "C:\Mis documentos\Mis imagenes\"

Para ver cuales son los caracteres que tiene la propiedad CommonDialog1.FileName escribe una sentencia con el procedimiento Msgbox de este manera:

Msgbox CommonDialog1.FileName

Esta desplegará una ventana con el valor de CommonDialog1.FileName.

De todos modos te envío otra versión del código donde empleo el CommonDialog

 

Dreamer:
Ante todo fue un placer.

Referente a tus dudas residuales, en el caso de la función MPathX(), es solo para manejo de rutas sin el nombre del archivo, como por ejemplo:


Que al ingresarla en la función, le agrega un \ al final si no lo tiene, y si ya lo tiene, simplemente no hace nada, es decir:


Respecto los controles de imagen, que por cierto son PictureBox (no Image), están para ajustar el tamaño de la imagen y este mantenga simetría con el tamaño original.   De hecho el control Image es el que tiene la propiedad strech, pero esta no conserva la proporción respecto al tamaño original si no que puede que la estire hacia los lados o hacia arriba y abajo.  

Continúa descubriendo y aprendiendo sobre programación