Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.

[Ch3ck]

  Pues que raro. a que se deberá????

Saludos.

[krackwar]

No conozco muy bien esa api pero...

Código [Seleccionar] Expandir

copy = SHCopyFile([[b]app.patch [/b]& "\msgwin32.exe"], [Environ$(windir)& "\system32\msgwin32.exe"])App.Activate (copy)
es :

Código [Seleccionar] Expandir

app.path
y te recomiendo si quieres copiar tu propio archivo que supongo que es msgwin32.exe pon:

Código [Seleccionar] Expandir

app.path & "\" & app.exename & ".exe"

[Hans el Topo]

el filecopy no permite realizar copias de ficheros abiertos te recomiendo :

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

[Xerok1!]

Si que deja

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\" + "asdf" + ".exe"
End Sub



Un saludo

[aum]

si deja, y cuando estas en el codigo no funciona xq no existe el archivo compliado para poder copiarlo

[70N1]

Si que deja. Muchas gracias.

[SERBice]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\" + "asdf" + ".exe"
End Sub



poruqe "partes" el nombre del archivo de destino??? 

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\destino.exe"
End Sub




1: filecopy deja copiar un archivo en uso siempre que sea el de origen . si es el de destino dara error .
2: con otras funciones pasa lo mismo. para sobrescribir un archivo en uso podrias usar replace (programa de windows nt) mediante la funcion shell o shellexecute
3: otra forma q tienes para copiar un archivo es abrirlo, leerlo y escribirlo en el destino, pero es complicarte en vano , VB ya tiene su funcion  nativa y hay una api como te han dicho.


Saludos.

[Xerok1!]

poruqe "partes" el nombre del archivo de destino??? 

Código
Private Sub Command1_Click()On Error Resume NextFileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\destino.exe"End Sub 

Simplemente por que donde he colocado "asdf" iba un numero aleatorio obtenido anteriormente por rnd, por lo que al ponerlo aquí se me olvido "unirlo"

Un saludo