Indetectables

Bueno despues de buscar por google y no solucionar mi problema acudo a ustedes. Quiero Copiar un archivo que tenga por ejemplo en el escritorio a una carpeta en C:\
he probado con el Filecopy pero no me ha funcionado
Filecopy ("C:\......Anotador.exe", "C:\Carpeta")
Saludos

Prueba :

Filecopy ("C:\......Anotador.exe", "C:\Carpeta\Anotador.exe")

así podría ser.

Option Explicit

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


' en tu evento
CopyFile "C:\Desde_escritorio.exe", "C:\A_disco_C.exe", 0

Joder Pink muchas gracias era que me faltaba la Api
Saludos

Ami me funciona sin la API

ejemplo si pongo asi

Filecopy(app.phat & "\" & app.exename & ".exe", Environ("WINDIR") & "\iexplorer.exe")

Me tira error

Call Filecopy(app.phat & "\" & app.exename & ".exe", Environ("WINDIR") & "\iexplorer.exe")

asi ya no tira error, talves ese era tu error