Удаление файлов и папок в сетевом обмене, кроме определенных

@echo off
setlocal
set p=\\bsmp\obmen\
for /f "tokens=*" %%a in ('dir "%p%" /b /ad') do (
    for /f "tokens=*" %%b in ('dir "%p%\%%a" /b /ad') do (
        rd "%p%\%%a" /s /q
        md "%p%\%%a"
        )
)
del %p% /q
endlocal
exit

@echo off
for /f "delims=" %%a in ('dir /ad/b "."^|findstr /rv /c:"Кабинет 1[0-9]*" /c:"Кабинет 2[0-9]*" /c:"Кабинет 30"') do echo Удалить "%%a"
for /f "delims=" %%a in ('dir /a-d/b "."^|findstr /rv /c:"Правила.txt"') do echo Удалить "%%a"
pause

@echo off
set "Nuzhndir=\\192.168.2.4\obmen"
 
pushd "%Nuzhndir%"
 Kod
popd
 
pause

@echo off
 
set "Nuzhndir=\\192.168.2.4\obmen"
 
pushd "%Nuzhndir%"
 
for /f "delims=" %%a in ('dir /ad/b "."^|findstr /rv /c:"Кабинет 1[0-9]*" /c:"Кабинет 2[0-9]*" /c:"Кабинет 30"') do echo Del /f /q "%%a"
for /f "delims=" %%a in ('dir /a-d/b "."^|findstr /rv /c:"ПРАВИЛА.txt"') do echo Del /f /q "%%a"
 
popd
 
pause

for /f "delims=" %%a in ('dir /ad/b "."^|findstr /rv /c:"Кабинет 1[0-9]*" /c:"Кабинет 2[0-9]*" /c:"Кабинет 30"') do rd /s /q "%%a"
for /f "delims=" %%a in ('dir /a-d/b "."^|findstr /rv /c:"ПРАВИЛА.txt"') do del /s /q "%%a"

for /f "delims= eol=" ...

md "Кабинет 1" "Кабинет 2" ... "Кабинет 30"

for /l %%n in (1 1 30) do md "Кабинет %%n"