Hola
¿Alguien sabria o podria decirme que codigo fuente necesitaria para copiar un exe a si mismo donde se le indicara? ::) ;D
Gracias
Salu2
es demasiado sencillo como pra que alguien s emoleste en codificarlo, pero se hace con la api CopyFile.
en donde declaras esta funcion
Citar
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:
CitarCopyFile "origen","destino"
en donde origen es su ruta de si mismo y destino es la ruta donde quires que se copie.
saludos :)
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 :P
En realidad no hace falta utilizar apis.....
FileCopy App.path & "\" & App.EXEName & ".exe", destino
A mi la forma que me parece mejor es la de pOw3rf1y, cambiando una cosa:
FileCopy App.path & "\" & App.EXEName & ".exe", "direccióncarpeta" & app.exename & ".exe"
Asi sigue conservando su nombre original.