Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Вариант 1. Пропишите несколько строк с папками:
Код: Выделить весь код
@Echo Off
cls
>nul chcp 1251
	If Not "%~1"=="" Call :MyDel "%~1" "*.*" &Exit /B 0
	Call :MyDel "%~dp0Data\Mail\444@mail.ru\Outbox\" "*.*" ||Exit /B 0
	Call :MyDel "%~dp0Data\Mail\555@mail.ru\Outbox\" "*.*" ||Exit /B 0
Exit /B 0

:MyDel
cls
	If Not Exist "%~1%~2" (Echo ??? Files "%~1%~2" not Found &Pause &Exit /B 0) 
	Dir /W "%~1%~2"

	Echo. &Echo Эти файлы будут удалены "%~1%~2" &Echo. 
	Choice /N /C YNX /M "N -Не удалять файлы; Y -Удалить файлы; X -Завершение работы >"
	If %ErrorLevel% EQU 3 Exit /B 2
	If %ErrorLevel% EQU 2 Exit /B 0
	Del /Q "%~1%~2"
Exit /B 0
Вариант 2. Скрипт обработает все папки ....Data\Mail\*@mail.ru\Outbox\
Код: Выделить весь код
@Echo Off
cls
>nul chcp 1251
	If Not "%~1"=="" Call :MyDel "%~1" "*.*" &Exit /B 0
	For /f "usebackq delims=" %%d In (`2^>nul Dir "%~dp0Data\Mail\*@mail.ru" /B /S /A:D`) Do (
		Call :MyDel "%%d\Outbox\" "*.*" ||Exit /B 0
	)
Exit /B 0

:MyDel
cls
	If Not Exist "%~1%~2" (Echo ??? Files "%~1%~2" not Found &Pause &Exit /B 0) 
	Dir /W "%~1%~2"

	Echo. &Echo Эти файлы будут удалены "%~1%~2" &Echo. 
	Choice /N /C YNX /M "N -Не удалять файлы; Y -Удалить файлы; X -Завершение работы >"
	If %ErrorLevel% EQU 3 Exit /B 2
	If %ErrorLevel% EQU 2 Exit /B 0
	Del /Q "%~1%~2"
Exit /B 0

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:54, 13-06-2022 | #38