[megaloman]

pedrosoft, Я правильно понимаю, в D:\IS\users\ есть много папок. В этих папках надо убить все подпапки, корме TEST?

Код:

@Echo Off
	Set "BoxIn=D:\IS\users"
	Set "Exclude=Test"

	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:D "%BoxIn%"`) DO (
		Call :DelDir "%BoxIn%\%%~f" "%Exclude%"
	)
Exit /B

:DelDir
	If Not Exist "%~1" (Echo !!! %1 not found &Exit /B 1)
	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir /B /A:D "%~1\"`) DO (
		If /I Not "%%~d"=="%~2" Rd /S /Q "%~1\%%~d"
	)
Exit /B