Dim wsh, fso
Set wsh = WScript.CreateObject("WScript.Shell")
Temp = wsh.ExpandEnvironmentStrings("%TEMP%")
SD = wsh.ExpandEnvironmentStrings("%SystemDrive%")
Call clean()
Sub clean()
clean_temp = MsgBox("Очистить временные файлы?", vbYesNo + vbQuestion, "TEMP")
If clean_temp = vbYes Then
Call cleaning_script()
Else
WScript.Quit
End If
End Sub
Sub cleaning_script()
start = MsgBox("Рекомендуется произвести очистку при загрузке системы во избежание ошибок. Произвести очистку после перезагрузки?", vbYesNoCancel + vbInformation, "Время очистки...")
Select Case start
Case vbNo
Set fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetFolder(Temp)
Set fileslist = tfolder.Files
For Each file in fileslist
fso.DeleteFile(file)
Next
Case vbYes
VBSPathFull = SD&"\clean_tempfiles.vbs"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set cstart = fso.CreateTextFile(VBSPathFull) '////////////////////////////////////////////////////////////ВОТ СТРОКА ГДЕ ВЫСКАКИВАЕТ ОШИБКА
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
cstart.WriteLine("Dim fso, tfolder, fileslist, file, Temp, wsh")
cstart.WriteLine("Set wsh = WScript.CreateObject(""""WScript.Shell"""")")
cstart.WriteLine("Temp = wsh.ExpandEnvironmentStrings(""""%TEMP%"""")")
cstart.WriteLine("Set fso = CreateObject(""""Scripting.FileSystemObject"""")")
cstart.WriteLine("Set tfolder = fso.GetFolder(Temp)")
cstart.WriteLine("Set fileslist = tfolder.Files")
cstart.WriteLine("For Each file in fileslist")
cstart.WriteLine("fso.DeleteFile(file)")
cstart.WriteLine("Next")
cstart.Close
VBSPath = SD&"\"
StartFolder = wsh.SpecialFolders("Startup")
gMe.Copy(StartFolder)
Case vbCancel
WScript.Quit
End Select
End Sub
в УКАЗАННОЙ (см. в коде) строке вылетает ошибка - [Требуется обьект: "] Что это??
Примечание:
забыл) Set gMe = WScript.ScriptFullName
Примечание:
бл?, не gMe = WScript.ScriptFullName а
SFN = WScript.ScriptFullName
Set gMe = fso.GetFile(SFN)
вот он пропадший кусень кода;)
Примечание:
но проблема не решилась...
требует Обьект: "
Примечание:
ReinMetall, this вроде только в JScript'е есть (или я неправ?)
Примечание:
ReinMetall, надо создать НОВЫЙ текстовый файл и потом скопировать его в папку автозапуска, предварительно прописав в него нужные строки.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.