Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.59/140: Рейтинг темы: голосов - 140, средняя оценка - 4.59
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
VBS

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

03.02.2018, 19:20. Показов 30724. Ответов 93
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Собрал из кусков скрипт для удаления файлов и папок.
Но проблема такая, если все указанные в скрипте файлы присутствуют в системе то он отрабатывает нормально.
А если какого нибудь файла или папки нет, то скрипт выдаёт ошибку: файл не найден и окно висит пока не закроешь вручную.
Помогите подправить или написать новый, чтобы не было такой ошибки.
Вот мой скрипт:
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 (он просто заменяет файлы в папке с настройками) и затем удалились бы не нужные папки и файлы,
то я бы был безмерно вам благодарен.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.02.2018, 19:20
Ответы с готовыми решениями:

Скрипт перемещения файлов и папок пользователя с профиля в профиль
Добрый день! Нужна помощь в написании скриптов. Задача скрипта №1: Пользователь запускает скрип от имени администратора, Появляется окно...

Скрипт для удаления виртуальных сом портов
Здравствуйте. Собственно вопрос. Имеется компьютер, на котором конфигурируются изделия, подключаемые к ПК через виртуальный сом порт...

Скрипт для удаления свойств файла Word
Здравствуйте! Имеется вот такой скрипт для удаления свойств файла Excel.\ Option Explicit Dim sSrc, oWB, oProp With...

93
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
03.02.2018, 20:14
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
With CreateObject("WScript.Shell")
    .CurrentDirectory = "C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990"
    .Run "setup.exe",, 1 : .Run "затем ещё один.exe",, 1
End With
 
With CreateObject("Scripting.FileSystemObject")
    For Each N In Split("service_update.exe service_update.exe")
        If .FileExists(N) Then .DeleteFile N, 1
    Next
    If .FolderExists("Installer") Then .DeleteFolder "Installer", 1
End With
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
03.02.2018, 21:24  [ТС]
FlasherX,
Извините, что неверно указал информацию.
Файлы должны запуститься из папки Temp.
То-есть, мой SFX распаковывает файлы в Temp: Setup.exe и Settings.exe
и вот там их должен запустить этот скрипт.
Поправьте пожалуйста, чтобы сработало.
А то выдаёт ошибку:
Кликните здесь для просмотра всего текста
Строка: 2
Символ: 5
Ошибка: Системе не удается найти указанный путь.
Код: 80070003
Источник: (null)


Добавлено через 41 минуту
FlasherX,
Дело в том, что при распаковке моего инсталлятора SFX, запуск происходит не из самой папки TEMP,
а из C:\Users\Администратор ПК\AppData\Local\Temp\RarSFX0 и эта папка RarSFX0 всегда имеет разное имя,
то RarSFX0, то RarSFX1.
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
03.02.2018, 21:54
Цитата Сообщение от BKPB Посмотреть сообщение
папка RarSFX0 всегда имеет разное имя, то RarSFX0, то RarSFX1.
RarSFX - несменное начало имени? И что, если этих папок несколько?
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
03.02.2018, 22:46  [ТС]
FlasherX,
RarSFX несменное начало, но оно не бывает только RarSFX,
оно всегда либо RarSFX0(это если нез апущены какие либо другие портабле программы)
а если запущена хотя бы одна, тогда создаваемой папке назначается имя RarSFX1, т.к RarSFX0 уже занято предыдущей программой.
Мне тут давали подсказку для .cmd, когда была такая же поблема,
тоесть вот так не срабатывало потому что папка RarSFX0 всегда имела разное имя, то RarSFX0, то RarSFX1 и.т.д
Windows Batch file
1
2
3
4
5
6
Pushd "%Temp%"
 start " " /wait Setup.exe
 Popd
 ping -n 3 localhost>Nul
 Pushd "%Temp%"
 start " " /wait Settings.exe
А когда сделали так, всё заработало:
Windows Batch file
1
2
3
4
Pushd "%Temp%"
 start " " /wait "%~dp0Setup.exe"
 start " " /wait "%~dp0Settings.exe"
 Popd
Вот и в скрипте наверное нужно сделать что то подобное.
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
03.02.2018, 23:55
BKPB, подсказки мне не нужны.
Я не понял. Написано "Вот мой скрипт". В первом посте пути и имена файлов фейковые или нет?
Если нет, то почему нет пути C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Ap plication\17.11.1.990 ?
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 08:26  [ТС]
FlasherX,
Ошибся это не скрипт, а пример сценария.
Имена не фейковые, а пути нет, потому что запуск происходит в папке RarSFX0 временно создающейся в директории
%TEMP% и имя RarSFX* всегда разное.
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
04.02.2018, 11:33
Цитата Сообщение от BKPB Посмотреть сообщение
Имена не фейковые, а пути нет
Что-о-о-о?
service_update.exe, yupdate-exec.exe, Installer, Setup.exe и Settings.exe — все находятся в %TEMP%\RarSFX*, не пойму?
0
Любознательный
 Аватар для YuS_2
7401 / 2247 / 359
Регистрация: 10.03.2016
Сообщений: 5,187
04.02.2018, 12:05
Цитата Сообщение от BKPB Посмотреть сообщение
А когда сделали так, всё заработало:
Windows Batch file
1
2
3
4
Pushd "%Temp%"
start " " /wait "%~dp0Setup.exe"
start " " /wait "%~dp0Settings.exe"
Popd
Дословно:
1. Перейти во временный каталог, записанный в переменной окружения %temp%
2. Запустить, с ожиданием завершения работы, файл Setup.exe, расположенный в одном каталоге с пакетным сценарием ( не совсем понятно - зачем осуществлялся переход во временный каталог?)
3. Запустить, с ожиданием завершения работы, файл Settings.exe, расположенный в одном каталоге с пакетным сценарием ( тоже не совсем понятно - зачем же осуществлялся переход во временный каталог?)
4. Возврат в каталог, сохраненный командой pushd на первом шаге, перед тем как перейти в указанный каталог.
Итого:
Что там заработало - вопрос тот ещё... т.к. этот пакетник противоречит Вашему условию:
Цитата Сообщение от BKPB Посмотреть сообщение
То-есть, мой SFX распаковывает файлы в Temp: Setup.exe и Settings.exe
Цитата Сообщение от BKPB Посмотреть сообщение
Имена не фейковые, а пути нет, потому что запуск происходит в папке RarSFX0 временно создающейся в директории
%TEMP% и имя RarSFX* всегда разное.
В общем, разберитесь подробнее, где что создается и где что требуется запустить, после чего скорректируйте условие... если, конечно, есть желание, чтобы "всё заработало".
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 12:57  [ТС]
Не знаю, как объяснить.
2. Запустить, с ожиданием завершения работы, файл Setup.exe, расположенный в одном каталоге с пакетным сценарием ( не совсем понятно - зачем же осуществлялся переход во временный каталог ?
Почему из %temp% ? Потому, что я беру выдернутые из официального инсталлятора файлы
browser.7z, Setup.exe и самораспаковывающийся архив Settings.exe.
Запаковываю их в WinRarSFX архив и указываю в нём извлечь файлы во временную папку.
Чтобы произвести от туда их запуск, по очереди.
Для этого мне и нужен скрипт который запустил бы их с задержкой между запуском Setup.exe и Settings.exe.
А WinRarSFX архив и извлекает во временный каталог, а после установки удаляет извлечённые файлы.
Вот батник который всё это выполняет, но мне нужен скрипт.
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
Pushd "%Temp%"
start " " /wait "%~dp0Setup.exe"
ping -n 2 localhost>Nul
TASKKILL /F /IM browser.exe
TASKKILL /F /IM service_update.exe
ping -n 2 localhost>Nul
start " " /wait "%~dp0Settings.exe"
Popd  
ping -n 1 localhost>Nul
del "C:\Users\Ђ¤¬Ё*Ёбва*в®а ЏЉ\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990\yupdate-exec.exe"
del "C:\Users\Ђ¤¬Ё*Ёбва*в®а ЏЉ\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990\service_update.exe"
rd /s /q "C:\Users\Ђ¤¬ЁЁбва*в®а ЏЉ\AppData\Local\Yandex\YandexBrowser\Application\17.11.1.990\Installer"
Ђ¤¬ЁЁбва*в®а ЏЉ в пути, это Администратор ПК в кодировке 866 иначе батник не удаляет нужные файлы
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
04.02.2018, 13:08
BKPB, хотите обсуждать батники, идите в раздел для них. Хотите, чтобы вам помогли здесь, ответьте на вопрос.
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 13:59  [ТС]
FlasherX,
Если вы имеете ввиду вопрос:
Кликните здесь для просмотра всего текста
А когда сделали так, всё заработало:
Pushd "%Temp%"
start " " /wait "%~dp0Setup.exe"
start " " /wait "%~dp0Settings.exe"
Popd

То ответ, ДА.
Или на какой вопрос я не ответил?
Я не обсуждаю батник.
Я просто подумал, раз не получается написать скрипт,
может кто то основываясь на батнике создаст или как нибудь конвертирует его,
что то типа этого. Вот и всё.
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
04.02.2018, 14:04
Цитата Сообщение от BKPB Посмотреть сообщение
Если вы имеете ввиду вопрос:
Это не вопрос, и ко мне он отношения не имеет.
Цитата Сообщение от BKPB Посмотреть сообщение
Или на какой вопрос я не ответил?
На мой, естественно.
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 14:17  [ТС]
service_update.exe, yupdate-exec.exe, Installer, Setup.exe и Settings.exe — все находятся в %TEMP%\RarSFX*, не пойму?
Этот вопрос ?

В %TEMP%\RarSFX* находятся только файлы Setup.exe и Settings.exe,
а файлы service_update.exe, yupdate-exec.exe и папка Installer,
будут находится в папке программы когда она установится и вот от туда мне и нужно будет их удалить
после того как программа закончит установку и распакуются настройки.
(C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Ap plication\17.11.1.990\)
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
04.02.2018, 14:48
Понятно. В общем, сами в своих показаниях запутались. Иначе бы давно получили готовый ответ:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
With CreateObject("Scripting.FileSystemObject")
    P = .GetSpecialFolder(2) : Path = """" & P & "\RarSFX0"
    If .FolderExists(P & "\RarSFX1") Then Path = """" & P & "\RarSFX1"
    With CreateObject("WScript.Shell")
        .Run Path & "\setup.exe""",, 1 : .Run Path & "\Settings.exe""",, 1
        .CurrentDirectory = .Environment("Process")("LocalAppData") & "\Yandex\YandexBrowser\Application\17.11.1.990"
    End With
    For Each N In Split("service_update.exe yupdate-exec.exe")
        If .FileExists(N) Then .DeleteFile N, 1
    Next
    If .FolderExists("Installer") Then .DeleteFolder "Installer", 1
End With
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 14:55  [ТС]
FlasherX,
Выдаёт ошибку.
Кликните здесь для просмотра всего текста
Сценарий:
C:\UsersW7D~l\AppData\Local\Temp\RarSFX0 \Setup.vbs
Строка: 5
Символ: 5
Ошибка: Не удается найти указанный файл.
Код: 80070002
Источник: (null)
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
04.02.2018, 15:02
BKPB, значит, файла C:\Users\Администратор ПК\AppData\Local\Temp\RarSFX(0/1)\setup.exe нет. А скрипт, как вы объясняли, запускается после распаковки SFX.

Администратор ПК, кстати, — это активный профиль?
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 17:14  [ТС]
FlasherX,
Всё равно выдаёт ошибку:
Кликните здесь для просмотра всего текста
Сценарий:
C:\Users\A47D-l\AppData\Local\Temp\RarSFX0\Setup.vbs
Строка: 5
Символ: 9
Ошибка: Не удается найти указанный файл.
Код: 80070002
Источник: (null)


Администратор ПК, кстати, — это активный профиль?
Да, активный, других учётных записей нет.
Скриншот:
Миниатюры
Скрипт для удаления файлов и папок  
0
6962 / 2857 / 1099
Регистрация: 06.06.2017
Сообщений: 9,694
04.02.2018, 17:34
BKPB, значит, есть папка RarSFX1, в которой с ваших слов и надо искать эти файлы:
а если запущена хотя бы одна, тогда создаваемой папке назначается имя RarSFX1, т.к RarSFX0 уже занято предыдущей программой.
Скрипт проверяет сущетсвование папки RarSFX1. Если она есть, то файлы запускаются из неё.
0
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 269
04.02.2018, 17:55  [ТС]
Ещё скриншот:


Добавлено через 6 минут
Да нет же, файлы должны запустится из любой папки которая создастся, если свободно RarSFX0 значит из неё, если занято,
значит из RarSFX1, если и она (что очень, очень редко бывает), то из RarSFX3 т.к их создаёт сам SFX WinRar архив.

Добавлено через 12 минут
Скрипт проверяет сущетсвование папки RarSFX1. Если она есть, то файлы запускаются из неё.
В общем заменил в скрипте RarSFX1 на RarSFX0 и установка прошла но с ошибкой.
т.к после выполнения Setup.exe, нужна пауза 7 сек, потом завершить процессы
browser.exe и service_update.exe иначе они не дают распаковаться настройкам (Settings.exe)
в папку с программой, потом пауза на 2 сек перед запуском Settings.exe (настройки),
далее пауза 1 сек и далее удаление ненужных файлов из
C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Ap plication\17.11.1.990\yupdate-exec.exe
C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Ap plication\17.11.1.990\service_update.exe
C:\Users\Администратор ПК\AppData\Local\Yandex\YandexBrowser\Ap plication\17.11.1.990\Installer\browser. 7z
и всё.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.02.2018, 17:55
Помогаю со студенческими работами здесь

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

Скрипт для удаления антивируса "Dr.Web"
Добрый день! Мне нужен скрипт или пример как в тихом режиме удалить программу. В данном случае речь идет о антивирусе Доктор Веб. ...

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

Скрипт для переименования файлов расширения .doc
Подскажите пожалуйста как написать скрипт: Переименовать все файлы с расширением .doc, присвоив им имена: 1.doc, 2.doc, 3.doc и так...

Скрипт для сбора текста из лог файлов
Всем привет. Необходима помощь в создании скрипта. Ситуация следующая, имеется сервер, на нем в папке data лежит куча других...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru