空のフォルダだけ、リカーシブにすべて削除するバッチファイル

RMDIRコマンドのオプションなしは、空のフォルダだけを削除します。
RMDIRコマンドの/Sオプションで、リカーシブにすべてのフォルダを削除することはできますが、空のフォルダだけを削除することはできません。
では、どうするか？

RmEmptyDir.cmd dir...

@ECHO OFF
FOR %%1 IN (%*) DO CALL :SUB %%1
GOTO :EOF
:SUB
FOR /D %%1 IN (%1\*) DO CALL :SUB "%%1"
RMDIR %1