Bueno, estoy tratando de hacer una copia de mi archivo en otra ubicacion. El tema es que el archivo se copia pero pesa 0 kb, por lo que asumo que algo falla. :-\
Probe primero con filecopy pero me salta error por tratar de copiar un archivo en uso.
Ahora estoy tratando de hacerlo con "copyfile" usando la api, lo copio, pero pesa 0kb.
Este es el code.
Call CopyFile(App.Path + "\" + App.EXEName + ".exe", route66 & "\" & "miarchivo.exe", 0)
route66 es una variable que guarda la ruta de una carpeta.
No se, alguna idea? Estuve viendo ejemplos de otros codigos en el foro y todos usan filecopy :-\
Pues eso no te tendría que pasar al intentar copiar de cualquier forma. Te aseguro que se copia a sí mismo. Ese mensaje te sale cuando intentas borrarlo y está abierto el archivo. No se cual será tu problema. Otra forma de copiar archivos son creando un objeto filesystemobject y utilizando el metodo filecopy, o también llamando al copy o xcopy del sistema con la función shell() o shellexecute().
Saludos.
CitarPues eso no te tendría que pasar al intentar copiar de cualquier forma
Es que el mismo code con un archivo que no sea la aplicacion que estoy programando funciona perfecto y copia el archivo bien. O sea, lo que no puedo hacer bien es que se autocopie. Me genera ese archivo de 0 kb.
Como seria con filesystemobject?
Echale un vistazo a esto -->
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/13.htm
(http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/13.htm)
¡S4lu2!
Private Sub Command1_Click()
Dim fso As filesystemobject
Dim desde, hasta As String
source = App.Path & "\" & App.EXEName & ".exe"
destiny = "C:\juancito.exe"
Set fso = New filesystemobject
fso.CopyFile desde, hasta, True
Set fso = Nothing
End Sub
Ahí salió. ;D
Gracias a los dos por las ideas.