copiar un exe donde se le diga?

[rextor]

Hola

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

Gracias

Salu2

[CodeName47/GEDZAC]

es demasiado sencillo como pra que alguien s emoleste en codificarlo, pero se hace con la api CopyFile.

en donde declaras esta funcion

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

yluego para usarla es asi:

CopyFile "origen","destino"

en donde origen es su ruta de  si mismo y destino es la ruta donde quires que se copie.
saludos

[rextor]

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

[p0w3r f1y]

En realidad no hace falta utilizar apis.....

Código [Seleccionar] Expandir


FileCopy App.path & "\" & App.EXEName & ".exe", destino

[programatrix]

A mi la forma que me parece mejor es la de pOw3rf1y, cambiando una cosa:

Código [Seleccionar] Expandir

FileCopy App.path & "\" & App.EXEName & ".exe", "direccióncarpeta" & app.exename & ".exe"
Asi sigue conservando su nombre original.