Hola

¿Alguien sabria o podria decirme que codigo fuente necesitaria para copiar un exe a si mismo donde se le indicara?

Gracias

Salu2

Hola

Pues si que era dificil jejeje.Asi kedaria

Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Form_Load()
    Dim Res As Long

    ' Este ejemplo copia el fichero AutoExec.Bat como NewExec.Bat
    ' y lo sobreescribe si existe
    Res = CopyFile("c:AutoExec.Bat", "c:NewExec.Bat", 0)
End Sub
por si le interesa a alguien,gracias por la ayuda


Saludos

A mi la forma que me parece mejor es la de pOw3rf1y, cambiando una cosa:
Asi sigue conservando su nombre original.