Größe eines bestimmten Ordners bestimmen, der in div. Unterordnern vorkommt

@echo off & setlocal
set "Basis=D:\Alle Kunden"  
set "Ordner=Name des Unterordners"  
set "Ziel=Ordner fuer gapackte Daten"  
set "Sammel=%temp%\Jahre"  

for /d %%i in ("%Basis%\*") do call :ProcessDir "%%i"  
goto :eof

:ProcessDir
for /f "tokens=3" %%a in ('dir /s "%~1\%Ordner%"^|findstr "Datei(en)"') do set "Bytes=%%a"  
echo %%a Bytes fuer %~nx1
goto :eof

for /f "delims=" %%a in ('dir /s/b/a-d "%~1\%Ordner%"') do for /f "tokens=3 delims=. " %%d in ("%%~ta") do (  
    md "%Sammel%\%%~nxd" 2>nul  
    copy "%%a" "%Sammel%\%%~nxd"  
)
for /d %%d in ("%Sammel%\*") do echo 7z a "%Ziel%\%~nx1\%%~nxd" "%%d\*.*"  
rd /s /q "%Sammel%" 2>nul  
goto :eof

for /f "delims=" %%a in ('dir /s/b/a-d "%~1\%Ordner%"') do for /f "tokens=3 delims=. " %%d in ('dir /tc "%%a"^|findstr /i /e "%%~nxa"') do (