剔除某个文件夹下面所有的子文件夹,但是某些不删除的批处理

删除某个文件夹下面所有的子文件夹,但是某些不删除的批处理
删除比如D:\tmp文件夹下面的所有子文件夹
如有20140627、20140628、20140629、20140630
以日期命名,删除除了今天日期的所有子文件夹,请问这个批处理该怎么写?

服务器的操作系统是Windows Server 2008 R2 Enterprise的。
------解决方案--------------------
@for /F "tokens=1,2* delims=-" %%a in ("%date%") do @set today0=%%a%%b%%c
@for /F "delims=*" %%a in ('dir D:\TMP\ /ad /b') do @if NOT .%%a.==.%today0%. @rd /q /s "D:\TMP\%%a"