Скрипт для удаления файлов и папок

@BKPB · Регистрация: 08.05.2015

Студворк — интернет-сервис помощи студентам

Собрал из кусков скрипт для удаления файлов и папок.
Но проблема такая, если все указанные в скрипте файлы присутствуют в системе то он отрабатывает нормально.
А если какого нибудь файла или папки нет, то скрипт выдаёт ошибку: файл не найден и окно висит пока не закроешь вручную.
Помогите подправить или написать новый, чтобы не было такой ошибки.
Вот мой скрипт:

Visual Basic
1
2
3
4
5
6
7
8
9
' Задержка 1 секунда
WScript.Sleep 1*1000
' Удаление файла
WScript.CreateObject("Scripting.FileSystemObject").DeleteFile "C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990\service_update.exe", True
WScript.CreateObject("Scripting.FileSystemObject").DeleteFile "C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990\yupdate-exec.exe", True
' Задержка 1 секунда
WScript.Sleep 1*1000
' Удаление папки
WScript.CreateObject("Scripting.FileSystemObject").DeleteFolder "C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990\Installer", True

А если поможете написать скрипт или .cmd, чтобы сперва отработал инсталлятор браузера setup.exe, затем ещё один .exe (он просто заменяет файлы в папке с настройками) и затем удалились бы не нужные папки и файлы,
то я бы был безмерно вам благодарен.

FlasherX · 06.02.2018, 13:18

Тогда такого не может быть. wscript.exe в процессах нет?

@BKPB · 06.02.2018, 13:22 **[ТС]**

Нет

Добавлено через 32 секунды
Сейчас запишу видео

FlasherX · 06.02.2018, 13:26

Не надо видео. В прошлый раз от него не было толку.
Посмотрите лучше, не работает ли какой-то exe-шник или служба из установки.
Может, он перезаписывает распакованные скриптом файлы.

@BKPB · 06.02.2018, 13:41 **[ТС]**

https://youtu.be/1_8bckqwUt8

Добавлено через 5 минут

Сообщение от FlasherX

не работает ли какой-то exe-шник или служба из установки.

Нет всё чисто

Сообщение от FlasherX

Может, он перезаписывает распакованные скриптом файлы.

Нет я смотрю в папку, там даже не появляются мои файлы т.к один из них с моей иконкой и их больше в 2 раза.
Хотя раньше была задержка секунды 3, а сейчас я ждал секунд 25 и ни чего. Попробую подождать побольше

Добавлено через 2 минуты
По диспетчеру задач скрипт завершает работу и через 2 сек завершается инсталлятор.

Добавлено через 1 минуту
Может, дать вам удалённый доступ через Team Viewer.

FlasherX · 06.02.2018, 13:43

Сообщение от BKPB

Нет всё чисто
По диспетчеру задач скрипт завершает работу и через 2 сек завершается инсталлятор.

Если верно второе предложение, то то, о чём я написал, похоже на правду. Он может переписывать всю папку целиком. Под инсталлятором какой файл имеется в виду?

@BKPB · 06.02.2018, 13:47 **[ТС]**

Яндекс 17.11.1.990 VBS.exe из которого всё запускается
http://i5.imageban.ru/out/2018... f46681.png

FlasherX · 06.02.2018, 13:51

А, обёртка имеется в виду.
Хотите, попробуйте с папкой Default вместо Default.zip. Достаточно убрать .zip во 2-й и 5-й строке, а в 4-й File на Folder заменить.

@BKPB · 06.02.2018, 13:54 **[ТС]**

Сообщение: Отсутствует Default.zip в папке скрипта!

FlasherX · 06.02.2018, 13:57

Внимательней.

@BKPB · 06.02.2018, 14:10 **[ТС]**

Сообщение от FlasherX

Может, он перезаписывает распакованные скриптом файлы.

Мне кажется они всё равно хотя бы мелькнуть перед этим должны

Добавлено через 1 минуту

Сообщение от FlasherX

Внимательней.

Понял

Добавлено через 10 минут
Я понимаю, что я вас уже достал, но может удалённый доступ через Team Viewer.

Т.к опять тишина, настройки не применяются, всмысле не копируются

FlasherX · 06.02.2018, 14:13

Жду ID/пароль в ЛС.

@BKPB · 06.02.2018, 14:27 **[ТС]**

Сделал так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Set FSO = CreateObject("Scripting.FileSystemObject")
Default = FSO.GetParentFolderName(WSH.ScriptFullName) & "\Default"
 
If Not FSO.FolderExists(Default) Then _
MsgBox "Отсутствует Default в папке скрипта!", 4144 : WSH.Quit
Path = FSO.GetSpecialFolder(2) & "\RarSFX"
For i = 2 To 0 Step -1
  If FSO.FileExists(Path & i & "\setup.exe") Then Path = Path & i : Exit For
Next
 
With CreateObject("WScript.Shell")
  .Run """" & Path & "\setup.exe""",, 1
  AppData = .SpecialFolders(5)
  LocalAppData = .Environment("Process")("LocalAppData")
  ProgramData  = .Environment("Process")("ALLUSERSPROFILE")
  YPath = LocalAppData & "\Yandex\YandexBrowser"
  YBApp = YPath & "Application"
  For Each Pr In GetObject("winmgmts:\\.\root\cimv2")._
  ExecQuery("Select Status from Win32_Process WHERE ExecutablePath='" &_
  Replace(YBApp & "browser.exe", "",  "") & "' Or ExecutablePath='"&_
  Replace(YBApp & "17.11.1.990\service_update.exe", "",  "") & "'")
    Pr.Terminate
  Next
  With CreateObject("Shell.Application")
    If .CanStartStopService("YandexBrowserService") _
    Then .ServiceStop "YandexBrowserService", False
    Set Items = .NameSpace(Default).Items
    Do : WSH.Sleep 100 : Loop Until FSO.FolderExists(YPath & "User Data\Default")
    .NameSpace(YPath & "User Data\Default").CopyHere Items, 5268
  End With
  .CurrentDirectory = YBApp & "17.11.1.990"
End With
 
For Each N In Split("service_update.exe yupdate-exec.exe Installer\browser.7z")
  If FSO.FileExists(N) Then FSO.DeleteFile N, 1
Next
For Each F in Array(AppData, ProgramData, LocalAppData & "Low")
  If FSO.FolderExists(F & "\Yandex") Then FSO.DeleteFolder F & "\Yandex", 1
Next

а у .zip удалил расширение получилась папка в инсталляторе

Добавлено через 7 минут
Отправил

FlasherX · 06.02.2018, 16:08

Сошлись на этом коде:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Set FSO = CreateObject("Scripting.FileSystemObject")
Default = FSO.GetParentFolderName(WSH.ScriptFullName) & "\Default"
 
If Not FSO.FolderExists(Default) Then _
MsgBox "Отсутствует Default в папке скрипта!", 4144 : WSH.Quit
Path = FSO.GetSpecialFolder(2) & "\RarSFX"
For i = 2 To 0 Step -1
  If FSO.FileExists(Path & i & "\setup.exe") Then Path = Path & i : Exit For
Next
 
With CreateObject("WScript.Shell")
  .Run """" & Path & "\setup.exe""",, 1
  AppData = .SpecialFolders(5)
  LocalAppData = .Environment("Process")("LocalAppData")
  ProgramData  = .Environment("Process")("ALLUSERSPROFILE")
  YPath = LocalAppData & "\Yandex\YandexBrowser\"
  YBApp = YPath & "Application\"
  .CurrentDirectory = YBApp & "17.11.1.990"
End With
 
For Each Pr In GetObject("winmgmts:\\.\root\cimv2")._
ExecQuery("Select Status from Win32_Process WHERE ExecutablePath='" &_
Replace(YBApp & "browser.exe", "\",  "\\") & "' Or ExecutablePath='"&_
Replace(YBApp & "17.11.1.990\service_update.exe", "\",  "\\") & "'")
  Pr.Terminate
Next
 
With CreateObject("Shell.Application")
    If .CanStartStopService("YandexBrowserService") _
  Then .ServiceStop "YandexBrowserService", False
  FSO.CopyFolder Default, YPath & "User Data\", 1
For Each N In Split("service_update.exe yupdate-exec.exe Installer\browser.7z")
  If FSO.FileExists(N) Then FSO.DeleteFile N, 1
Next
For Each F in Array(AppData, ProgramData, LocalAppData & "Low")
  If FSO.FolderExists(F & "\Yandex") Then FSO.DeleteFolder F & "\Yandex", 1
Next
 .Open YBApp & "browser.exe"
End With

@BKPB · 06.02.2018, 18:05 **[ТС]**

Огромная благодарность FlasherX, за его терпение и доведения дела до полного удачного завершения.
Задача полностью решена. Получил больше чем ожидал

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))
Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .	Модель здравоохранения 13. Добавление самой системы здравоохранения. anaschu 22.05.2026 В предыдущем посте мы настроили болезни. Теперь добавим события, которые управляют здоровьем всего коллектива, а также настроим рабочий график и расчёт финансов. В Main создаём четыре события. . . .

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	06.02.2018, 13:18
	Тогда такого не может быть. wscript.exe в процессах нет? 0

@BKPB 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 269
	06.02.2018, 13:22 [ТС]
	Нет Добавлено через 32 секунды Сейчас запишу видео 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	06.02.2018, 13:26
	Не надо видео. В прошлый раз от него не было толку. Посмотрите лучше, не работает ли какой-то exe-шник или служба из установки. Может, он перезаписывает распакованные скриптом файлы. 0

@BKPB 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 269
	06.02.2018, 13:47 [ТС]
	Яндекс 17.11.1.990 VBS.exe из которого всё запускается http://i5.imageban.ru/out/2018... f46681.png 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	06.02.2018, 13:51
	А, обёртка имеется в виду. Хотите, попробуйте с папкой Default вместо Default.zip. Достаточно убрать .zip во 2-й и 5-й строке, а в 4-й File на Folder заменить. 0

@BKPB 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 269
	06.02.2018, 13:54 [ТС]
	Сообщение: Отсутствует Default.zip в папке скрипта! 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	06.02.2018, 13:57
	Внимательней. 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,803
	06.02.2018, 14:13
	Жду ID/пароль в ЛС. 0

@BKPB 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 269
	06.02.2018, 18:05 [ТС]
	Огромная благодарность FlasherX, за его терпение и доведения дела до полного удачного завершения. Задача полностью решена. Получил больше чем ожидал 0

Скрипт для удаления файлов и папок

Решение