'on error resume next
'set s = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
set file2 = fso.getfile(wscript.scriptfullname)
file2.copy "c:\temp\temp.vbs"
Скрипт не копирует себя
Код:
on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Set File2 = FSO.GetFile(WScript.ScriptFullName)
File2.Copy ("с:temptemp.vbs")
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Set File2 = FSO.GetFile(WScript.ScriptFullName)
File2.Copy ("с:temptemp.vbs")
а по сути :
1) при наличии строки on error resume next никаких сообщений о ошибке выдаваться не будет
2) имя диска указано с использованием кириллицы
3) отсутствуют слэши (но это уже, видимо, "проделки" форума)
Код:
Да, и разумеется на диске C должна быть папка temp