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

@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, за его терпение и доведения дела до полного удачного завершения.
Задача полностью решена. Получил больше чем ожидал

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

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

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

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,815
	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 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,815
	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 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,815
	06.02.2018, 13:57
	Внимательней. 0

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

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

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

Решение