Код:

@Echo Off
cls
Set "DelDate=20140713"
SetLocal EnableExtensions EnableDelayedExpansion
FOR /F "usebackq delims=" %%i IN (`Dir /B /T:C /A:D *.* 2^>nul`) DO (
Set DDir=%%~ti
Set DDir=!DDir:~6,4!!DDir:~3,2!!DDir:~0,2%!
If !DDir! LSS %DelDate% @echo Rd "%%i" /S /Q
)
В DelDate вводим дату, после которой папки надо убить, в формате ггггммдд.
Батник в корне той папки, где удаляем подпапки.
Для реального удаления уберите @echo перед RD