'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"
Скрипт не копирует себя
Добрый день у меня такая проблема мне необходимо что бы temp.vbs копировал сам себя в папку c://temp. собрал по частям скрипт получилось такое
а теперь проблема , если заменить директорию распаковки допустим на локальный диск D то все работает, на C не хочет копироваться пишет "Путь не найден" ошибка 800A004C. В чем причина?
Код:
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) отсутствуют слэши (но это уже, видимо, "проделки" форума)
а по сути :
1) при наличии строки on error resume next никаких сообщений о ошибке выдаваться не будет
2) имя диска указано с использованием кириллицы
3) отсутствуют слэши (но это уже, видимо, "проделки" форума)
Код:
Да, и разумеется на диске C должна быть папка temp