@Echo Off
cls
>nul chcp 1251
	Set "Fmask=*.*"
	Set "Dmask=*@*.*"
	
	If Not "%~1"=="" Call :MyDel "%~1" "%Fmask%" &Exit /B 0
	Set "BoxIn=C:\Users\User\Desktop\Новая папка\Data\Mail"

	For /f "usebackq delims=" %%d In (`2^>nul Dir "%BoxIn%\%Dmask%" /B /S /A:D`) Do (
		For /f "usebackq delims=" %%s In (`2^>nul Dir "%%d" /B /A:D`) Do (
			Call :MyDel "%%d\%%s\" "%Fmask%" ||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 /A:-D "%~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 /A:R /A:-D "%~1%~2"
Exit /B 0