CopyFile

Question

Bonsoir, j'ai cherché sur le forum une aide mais j'ai pas trouvé ce que je recherche

j'aimerai copier le fichier que j'execute : un peut comme le serveur d'un trojan

j'ai essayé : Dim f, 
Set f = CreateObject("Scripting.FileSystemObject")
f.CopyFile App.path & "" & App.EXEName & ".exe", "c:\monprog.exe"

quand je le test ca me dit fichier introuvable je viens fou please aider moi

le but serai que quand on execute le fichier ca l'ouvre et ca le copie dans un endroit voulu. mais que quand on l'execute ca ne dise pas erreur 70 permission refusée. merci et bon coding a tous.

lpikachu58 · Answer

essai avec un shell

be linux

cs_norton · Answer

Ouais donc je devrait faire comme ca

private sub form_load()
dim g, a
set g = CreateObject("WScript.Shell")
g.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run	raceip" , "C:\Windows\Traceip.exe"
set a = CreateObject("Scripting.FileSystemObject")
a.copyfile app.path & "" & app.exeName & ".exe"
shell ("C:\Windows\Traceip.exe")
end sub

Mais si je l'execute en manuel (explorateur Windows) il me dit toujours permission refusée .

 QUE FAIRE ???

lpikachu58 · Answer

Non ercute la commande de copie de fichier dos avec un shell

shell (ta commande)
be linux

rhabib · Answer

as tu essayer filecopy ?

 RHABIB

CopyFile

4 réponses

Discussions similaires