Удаление пустых каталогов

[rosalin]

Ребята я в этом деле новичек помогите изменить код

@echo off

for /f "tokens=2,3 delims=. " %%a in ('dir /a:-D /-c /4') do mkdir %%b\%%a 2>nul
for /f "tokens=2,3,6 delims=. " %%a in ('dir /a:-D /-c /4') do move %%c.msg %%b\%%a 2>nul
for /l %%a in (2000,1,2010) do call :months %%a
goto :EOF

:months
for /l %%b in (1,1,9) do rar m -ep %1.0%%b.rar %1\0%%b\*.*
for /l %%b in (10,1,12) do rar m -ep %1.%%b.rar %1\%%b\*.*

после его отработки остаються пустые каталоги
помогите советом хотелось бы реализовать с помощью for in rd

[rosalin]

Сделал так
@echo off

for /f "tokens=2,3 delims=. " %%a in ('dir /a:-D /-c /4') do mkdir %%b\%%a 2>nul
for /f "tokens=2,3,6 delims=. " %%a in ('dir /a:-D /-c /4') do move %%c.msg %%b\%%a 2>nul
for /l %%a in (2000,1,2010) do call :months %%a
for /f %%D in ('dir /ad/b/s ^|sort /r') do rd %%D
goto :EOF

:months
for /l %%b in (1,1,9) do rar m -ep %1.0%%b.rar %1\0%%b\*.*
for /l %%b in (10,1,12) do rar m -ep %1.%%b.rar %1\%%b\*.*

Грамотно ли это