Код:
@Echo Off
Set "BoxIn=Z:\Box_In"
Set "Ext1=.xls"
Set "Ext2=.doc"
For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\" /B /S /A:-D ^|FINDSTR /E /I /V /C:"%Ext1%" /C:"%Ext2%"`) Do Del /A /F /Q "%%f"
For /F "usebackq delims=" %%d In (`2^>nul Dir "%BoxIn%" /B /S /A:D ^|Sort /R`) Do (
Call :ExtDel "%Ext1%" "%Ext2%" "%%d"
)
Pushd "%BoxIn%" &&Call :ExtDel "%Ext1%" "%Ext2%" "%BoxIn%"
Popd
Exit /B 0
:ExtDel
FOR /F "usebackq delims=" %%i IN (`2^>nul Dir /B /A:-D "%~3\*%~1"`) DO (
If /I "%%~xi"=="%~1" FOR /F "usebackq delims=" %%j IN (`2^>nul Dir /B /A:-D "%~3\*%~2"`) DO (
If /I "%%~xj"=="%~2" Exit /B 0
))
Del /A /F /Q "%~3\*.*"
2>nul Rd "%~3"
Exit /B 1
