[megaloman]

Код:

@echo off
rem Если формат даты в системе дд.мм.гггг
rem и формат поддиректорий гггг_мм_дд

Set Where=D:\accounts

Set Now=%Date:~6,4%%Date:~3,2%

FOR %%f IN ("Name1" "Name2") DO FOR %%b IN ("Inbox" "Outbox") DO FOR /D %%t IN ("%Where%\%%~f\%%~b\20??_??_??.") DO Call :DelDir "%%t"
GoTo :Eof

:DelDir
Set This=%~nx1
Set This=%This:~0,4%%This:~5,2%
If %This% LSS %Now% Rd /S /Q %1

Код:

@echo off
rem Если формат даты в системе дд.мм.гггг
rem и формат поддиректорий гггг_мм_дд

Set Where=D:\accounts

Set Now=%Date:~6,4%%Date:~3,2%

Call :Account "Name1"
Call :Account "Name2"
Call :Account "Name3"
Call :Account "Name4"

GoTo :Eof

:Account
  FOR %%b IN ("Inbox" "Outbox") DO FOR /D %%t IN ("%Where%\%~1\%%~b\20??_??_??.") DO Call :DelDir "%%t"
GoTo :Eof

:DelDir
  Set This=%~nx1
  Set This=%This:~0,4%%This:~5,2%
  If %This% LSS %Now% Rd /S /Q %1

Код:

@echo off
rem Если формат даты в системе дд.мм.гггг
rem и формат поддиректорий гггг_мм_дд
rem и поддректории с указанными именами только в InBox и OutBox

Set Where=D:\accounts

Set Now=%Date:~6,4%%Date:~3,2%
FOR /F "usebackq delims=" %%t IN (`Dir /S /A:D /B "%Where%\20??_??_??."`) DO Call :DelDir "%%t"
GoTo :Eof

:DelDir
  Set This=%~nx1
  Set This=%This:~0,4%%This:~5,2%
  If %This% LSS %Now% Rd /S /Q %1