Код: Выделить всё
@Echo Off
Call :DelDir "D:\IS\users\Config" "Test"
Call :DelDir "D:\IS\users\Home" "Test"
Call :DelDir "D:\IS\users\Temp" "Test"
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Код: Выделить всё
@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