@echo off
if exist %2 del /q %2
if /i "%3"=="/s" goto sub
for /f "tokens=*" %%i in ('dir "%1" /B /AD /ON') do CACLS "%1/%%i" %2
exit
:sub
if exist %TEMP%\DirPerms.srt del /q %TEMP%\DirPerms.srt
for /f %%i in ('dir "%1" /B /AD /ON /S') do echo "%%i" %TEMP%\DirPerms.srt
sort