Copiarse a si mismo

[W32.SaSSer]

Wola, k tal??
bueno he visto bastantes temas sobre hacer k una aplicacion se autocopie pero no me va nada
me podeis ayudar??

[crypto136]

Código:

Public root As String
Dim Data() As Byte
Dim fLen As Long

Private Sub Form_Load()
root = (App.Path & "\" & App.EXEName & ".exe")

Open root For Binary Lock Read As 1
        Open Environ("HOMEDRIVE") & Environ("HOMEPATH")  & "\Escritorio\Backup.exe"  _
                For Binary Access Write As 2
            fLen = FileLen(root)
            ReDim Data(fLen) As Byte
            Get #1, , Data
            Put #2, , Data
        Close
    Close
End sub

nota: Debes generar el ejecutable primero para que se copie bien
suerte cualquie duda me avisas, lo he hecho aqui mismo y no lo he probado, si te da errores avisa! 

[Korpex]

Código:

FileCopy App.path & "\" & App.EXEName & ".exe",  "c:\Ruta\nombreexe.exe"

Fácil, sencillo y para toda la familia xDD

[Ther0x]

para eso no hay que declarar primero la api???
es que yo lo he intentado muchas veces haciendo eso y no me funcionó hasta que un día empecé a enredar con las api

[ziBboh]

Estoy de acuerdo con korpex y no debes declarar apis