[megaloman]

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Папка для поиска"
	Set "BoxA=Папка A"
	Set "BoxB=Папка B"

	If Exist "%BoxIn%\%BoxA%\" If Exist "%BoxIn%\%BoxB%\" Call :AnyDo "%BoxIn%" "%BoxIn%\%BoxA%\" "%BoxIn%\%BoxB%"

	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir /B /S /A:D "%BoxIn%\"`) Do (
		If Exist "%%d\%BoxA%\" If Exist "%%d\%BoxB%\" Call :AnyDo "%%d" "%%d\%BoxA%" "%%d\%BoxB%" 
	)
Pause
Exit /B 0

:AnyDo
	Echo -------- Что то делаем  %1
	Echo %2
	Echo %3
Exit /B 0