Copyfile, filecopy

[juancho77]

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.

Código [Seleccionar] Expandir

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 

[Chefito]

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.

[juancho77]

Pues 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?

[cassiani]

Echale un vistazo a esto -->
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/13.htm


¡S4lu2!

[juancho77]

Código [Seleccionar] Expandir

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ó. 

Gracias a los dos por las ideas.