(echo Home) > dirlist.keep
(echo Work) >> dirlist.keep
for /F "usebackq delims=" %%d in (`dir E:\ /b /a:d ^| findstr /v /g:"%CD%\dirlist.keep"`) do del "E:\%%~d" /s /q /F
del dirlist.keep
pause