[alpap]

тогда уж и покороче и побыстрее так (да и возможности маски шире):

Код:

@echo off
set "d=papka"
:: Ниже в каждом echo, после : пишем имя, часть имени, расширение того что надо оставить
:: В данном примере не будут удалены файлы с именем "aa bb" (любое расширение) и файлы с расширением docx и xlsx (word и excel)
>$ (
 echo:aa bb
 echo:.docx
 echo:.xlsx
)
for /f "delims=" %%a in ('xcopy /sl /exclude:$ "%d%\*"') do del /q "%%~a" $ 2>nul
exit /b