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

@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 · 05.02.2018, 18:36

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

а может лучше и быстрее будет, удалить эту папку из папки с установленной программой

А вы уверены, что, удаляя папку целиком, вы не зацепите нужные файлы?
Вы вообще файлы сравнивали? Или тупо всю папку скопировали как есть? Файлы-то стоит брать только отличающиеся.

@BKPB · 05.02.2018, 19:00 **[ТС]**

Т.к после создания ярлыков, установка программы происходит ещё некоторое время
подольше чем обычно, то стало не понятно можно уже запускать программу или нет.
Я запустил, как обычно, после того как появились ярлыки и дрогнул экран, это наверное explorer.exe
пере запустился, а оказалось что файлы из Default.zip ещё не скопировались.
Я закрыл браузер, запустил через 3 секунды, всё было уже нормально.

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

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

А вы уверены, что, удаляя папку целиком, вы не зацепите нужные файлы?
Вы вообще файлы сравнивали? Или тупо всю папку скопировали как есть? Файлы-то стоит брать только отличающиеся.

ДА, я тупо скопировал всю папку, та как не знаю в каких файла хранятся настройки,
я наверное сейчас напишу в тех.поддержку и спрошу у них.

Добавлено через 10 минут
Написал в тех.поддержку, не знаю ответят подробно или нет.
Тогда придётся методом исключения искать, в каких файлах, что или оставить так как есть пока.

FlasherX · 05.02.2018, 19:12

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

стало не понятно можно уже запускать программу или нет.

Можно в конце окошко на секунду показывать.

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

я наверное сейчас напишу в тех.поддержку и спрошу у них.

Время ещё на них тратить. В Total Commander есть инструмент синхронизации. Запуск:
"Path\to\TOTALCMD.EXE" /S=S "Path\to\My Default" "C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Us er Data\Default"
Выбрано только: ☑ с подкаталогами, ☑ по содержимому, ☑ игнонорировать дату и ≠. Нажать [Сравнить], потом выписать нужное.

@BKPB · 05.02.2018, 19:18 **[ТС]**

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

Можно в конце окошко на секунду показывать.

А можно сделать так, чтобы после установки браузер запустился, это будет лучше всего.

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

В Total Commander есть инструмент синхронизации. Запуск:
"Path\to\TOTALCMD.EXE" /S=S "Path\to\My Default" "C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Us er Data\Default"

Это тогда придётся устанавливать оригинал, делать заново все настройки и уже потом делать синхронизацию? А без синхронизации можно увидеть какие файлы изменились, а какие нет? И если можно тогда скопировать их в другое место.

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

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

Выбрано только: ☑ с подкаталогами, ☑ по содержимому, ☑ игнонорировать дату и ≠. Нажать [Сравнить], потом выписать нужное.

Понял

FlasherX · 05.02.2018, 19:22

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

А можно сделать так, чтобы после установки браузер запустился

Откуда? Из %LocalAppData% или %ProgramFiles%?

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

и уже потом делать синхронизацию?

Я же написал [Сравнить], а не [Синхронизировать].

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

А без синхронизации можно увидеть какие файлы изменились, а какие нет?

Ответ выше.

@BKPB · 05.02.2018, 19:29 **[ТС]**

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

Откуда? Из %LocalAppData% или %ProgramFiles%?

Конечно же из папки в которую он установится:
C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Ap plication\browser.exe

FlasherX · 05.02.2018, 19:33

ОК. Тогда жду результатов, чтобы решить по удалению/замене, и выложу с правкой.

@BKPB · 05.02.2018, 19:37 **[ТС]**

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

ОК. Тогда жду результатов, чтобы решить по удалению/замене, и выложу с правкой.

Вы имеете ввиду файлов с настройками?

Добавлено через 43 секунды
ОК тогда до завтра.

FlasherX · 05.02.2018, 20:05

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

Вы имеете ввиду файлов с настройками?

Мне лично эти файлы не нужны. Смотря какое число останется. Если незначительное, то делаем замену. Если значительное, то пойдём через удаление папки, как предлагалось.

P.S.: Вообще - это делается за 3-5 мин от силы.

@BKPB · 05.02.2018, 23:11 **[ТС]**

Размер папки был 76,9 МБ, стал 58,4 МБ

Добавлено через 32 минуты
До выделывался,
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Users\A47D~1\AppData\Local\Temp\RarSF X1\Setup.vbs
Строка: 28
Символ: 5
Ошибка: Требуется объект: 'NameSpace(...)'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript

Вроде ни чего не делал, только файлы заменил в архиве Default.zip

И ещё, чтобы не забыть, если делать с удалением папки, то придётся сохранять настройки все что есть в папке,
а то я сейчас попробовал урезанную и файлов в папке Default не хватило.

FlasherX · 06.02.2018, 00:00

Ошибка могла возникнуть по причине залоченности или отсутствия папки %LocalAppData%\Yandex\YandexBrowser\User Data\Default.

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

то придётся сохранять настройки все что есть в папке

Не настройки, а остальные файлы. Так это и понятно было. В этом и суть замены супротив удаления/копирования.
Впрочем, сами решайте, что лучше. Вроде разница несущественная (24%).

Не по теме:

Кликните здесь для просмотра всего текста

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

пере запустился
имеете ввиду
До выделывался
ни чего

Кому-то пора школьную программу подтягивать. :coffee2:

@BKPB · 06.02.2018, 11:03 **[ТС]**

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

Кому-то пора школьную программу подтягивать.

Уже поздно

Добавлено через 57 секунд

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

Вроде разница несущественная (24%).

Да согласен

Добавлено через 1 час 25 минут
Эта ошибка достала, из 10 раз 9 с ошибкой.
Инсталлятор тот же, менял только архив .zip внутри архива.
Перепробовал уже всё, и сжатие .zip разное и создавал архив .zip winrar-ом, один хрен.

Сценарий: C:\Users\A47D~1\AppData\Local\Temp\RarSF X1\Setup.vbs
Строка: 28
Символ: 5
Ошибка: Требуется объект: 'NameSpace(...)'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript

И ведь самое смешное, пока не начал эксперименты с .zip всё было отлично,
это видать наказание тем кто не делает бэкап.

Добавлено через 1 час 4 минуты
Ошибка:
https://youtu.be/PRglYy06t4o

FlasherX · 06.02.2018, 11:16

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

менял только архив .zip внутри архива.

Какого архива?
Ошибка скорее всего из-за того, что скрипт получает к архиву доступ до его полной распаковки инсталлятором.
Видимо, инсталлятор не ждёт, пока всё полностью распакуется, и запускает скрипт раньше времени.

Не по теме:

Кликните здесь для просмотра всего текста

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

Уже поздно

Даже в 60-т не поздно. ;)

@BKPB · 06.02.2018, 11:23 **[ТС]**

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

менял только архив .zip внутри архива.

Инсталлятора

FlasherX · 06.02.2018, 12:22

Поспешил про архив. Вряд ли он тут роль играет. Выше я указал, в какой папке проблема.
Попробуйте между 27 и 28 строками вставить:

Visual Basic
1
    Do : WSH.Sleep 100 : Loop Until FSO.FolderExists("YPath & "User Data\Default")

@BKPB · 06.02.2018, 12:48 **[ТС]**

Сценарий: C:\Users\A47D~1\AppData\Local\Temp\RarSF X1\Setup.vbs
Строка: 28
Символ: 64
Ошибка: Предполагается наличие ')'
Код: 800A03EE
Источник: Ошибка компиляции Microsoft VBScript

Если я туда вставил

With CreateObject("Shell.Application")
If .CanStartStopService("YandexBrowserServi ce") _
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

FlasherX · 06.02.2018, 12:56

BKPB, моргнул, кавычка после открывающей скобки лишняя.

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

Сейчас установка проходит без ошибок, но файлы с настройками не распаковываются

FlasherX · 06.02.2018, 13:08

Значит, скрипт до сих пор работает (см. в диспетчер), а папки %LocalAppData%\Yandex\YandexBrowser\User Data\Default нет.
Т.е. инсталлятор не создал папку с настройками.

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

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

Т.е. инсталлятор не создал папку с настройками.

Default.zip не распаковал настройки в Default

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

а папки %LocalAppData%\Yandex\YandexBrowser\User Data\Default нет.

Есть

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

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

Значит, скрипт до сих пор работает (см. в диспетчер)

Нет не вижу

Новые блоги и статьи Все статьи Все блоги /
Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ начало и оглавление - Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование. . .	сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .	Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,812
	05.02.2018, 19:33
	ОК. Тогда жду результатов, чтобы решить по удалению/замене, и выложу с правкой. 0

@BKPB 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 269
	05.02.2018, 23:11 [ТС]
	Размер папки был 76,9 МБ, стал 58,4 МБ Добавлено через 32 минуты До выделывался, --------------------------- Windows Script Host --------------------------- Сценарий: C:\Users\A47D~1\AppData\Local\Temp\RarSF X1\Setup.vbs Строка: 28 Символ: 5 Ошибка: Требуется объект: 'NameSpace(...)' Код: 800A01A8 Источник: Ошибка выполнения Microsoft VBScript Вроде ни чего не делал, только файлы заменил в архиве Default.zip И ещё, чтобы не забыть, если делать с удалением папки, то придётся сохранять настройки все что есть в папке, а то я сейчас попробовал урезанную и файлов в папке Default не хватило. 0

@BKPB 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 269
	06.02.2018, 12:48 [ТС]
	Сценарий: C:\Users\A47D~1\AppData\Local\Temp\RarSF X1\Setup.vbs Строка: 28 Символ: 64 Ошибка: Предполагается наличие ')' Код: 800A03EE Источник: Ошибка компиляции Microsoft VBScript Если я туда вставил With CreateObject("Shell.Application") If .CanStartStopService("YandexBrowserServi ce") _ 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 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,812
	06.02.2018, 12:56
	BKPB, моргнул, кавычка после открывающей скобки лишняя. 0

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

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,812
	06.02.2018, 13:08
	Значит, скрипт до сих пор работает (см. в диспетчер), а папки %LocalAppData%\Yandex\YandexBrowser\User Data\Default нет. Т.е. инсталлятор не создал папку с настройками. 0