Programación General > Visual Basic 6.0 e inferiores
Copiar Foto Activa A Carpeta
dreamer:
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
DrakerDG:
<_< Antes de abrir otra discusión del mismo tema revisa bien los post escritos en tu primera discusión.
Discusión Anterior: "Copiar Foto A Carpeta"
En este link hay un archivo adjunto "FileSystem.exe" el cual es un ejemplo que funciona y que ocupe parte de mi tiempo para desarrollarlo. Ya lo probaste?
También está la explicación sacada del help de VB sobre el código utilizado. Como también un ejemplo escrito, que hace lo que necesitas en seis líneas.
Si aún no has revisado este recurso, hazlo pues tiene cosas que te pueden servir.
<_< :no:
dreamer:
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
DrakerDG:
:think: Ok, te envío una versión que solo trabaja con imágenes, y te explico como funciona:
Corre el programa y en la parte donde aparecen carpetas, selecciona una donde sepas que hay una imagen del tipo JPG. En el cuadro de a la par aparecen, si los hay archivos tipo JPG, haces click en cualquiera y automáticamente te aparece la imagen en un cuadrito situado en la esquina superior de tu izquierda, a la derecha aparece el nombre del archivo en una etiqueta y abajo de esta en un cuadro de texto. Cambia el nombre del cuadro de texto y/o cambia la carpeta o destino donde lo quieras copiar y listo, incluso puedes crear una nueva carpeta (botón: nueva carpeta), por ultimo solo presionas el botón de "copiar imagen" y eso es todo.
De ser posible envíame el código que actualmente te da el problema, para así poder revisarlo y ver ese error que comentas.
Tómalo con calma, hay momentos en que la mente se tupe y por mas que busque uno la solución es difícil. :suerte:
--- Código: Text --- NOTA: Necesito saber que sistema operativo utilizas, pues ocurre lo siguiente, la operación de copiar un archivo en tu disco duro, desde un código (script), para unos firewalls y sistemas de seguridad ajenos o propios del sistema, es tomado como una operación de riesgo moderado de seguridad, que dependiendo de como configures tú o tus programas de seguridad, pueden o no permitirle a una aplicación o código que realicé esta operación. En algunos casos (como el mío), en el primer intento de realizar una copia, mi sistema de seguridad me preguntó si lo permitía. Si en caso contrario se le indica a uno de estos programas que no lo permita, solo se puede cambiar este bloqueo desde la consola de configuración que el sistema de seguridad tenga. Revisa esto también, pues puede que sea la causa del error que mencionas.
Revisa el archivo adjunto (es otra versión).
dreamer:
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
Navegación
[#] Página Siguiente
Ir a la versión completa