Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: juancho77 en 10 Marzo 2008, 00:19 am



Título: Copyfile, filecopy
Publicado por: juancho77 en 10 Marzo 2008, 00:19 am
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:
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  :-\


Título: Re: Copyfile, filecopy
Publicado por: Chefito en 10 Marzo 2008, 01:09 am
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.


Título: Re: Copyfile, filecopy
Publicado por: juancho77 en 10 Marzo 2008, 02:07 am
Citar
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?


Título: Re: Copyfile, filecopy
Publicado por: cassiani en 10 Marzo 2008, 02:45 am
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!


Título: Re: Copyfile, filecopy
Publicado por: juancho77 en 10 Marzo 2008, 03:22 am
Código:
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.