Ordner zerteilen in mehrere Teile mit vorgegebener Größe

@echo off
setlocal EnableDelayedExpansion

:: === KONFIGURATION ===
set "SOURCE=C:\Pfad\zu\Quelle"  
set "DEST_BASE=D:\Ziel\Verzeichnis"  
set "MAX_SIZE_MB=4096"  
set "CURRENT_PART=1"  

:: Erstellt eine Liste aller Dateien
set "FILE_LIST=%TEMP%\filelist.txt"  
dir /b /s /a:-d "%SOURCE%" > "%FILE_LIST%"  

:: Initialisiere Zielverzeichnis
call :InitNextDestination

:: Hauptschleife über alle Dateien
for /f "usebackq delims=" %%F in ("%FILE_LIST%") do (  
    set "FILE=%%F"  
    
    :: Datei-Größe in Byte holen
    for %%A in ("!FILE!") do set "SIZE=%%~zA"  

    :: Zielgröße prüfen
    call :GetDirSize "!DEST!" CURRENT_SIZE  

    set /a TOTAL_SIZE=!CURRENT_SIZE! + !SIZE!

    :: Überschreitet MAX_SIZE_MB?
    set /a MAX_SIZE_BYTES=%MAX_SIZE_MB% * 1048576
    if !TOTAL_SIZE! GEQ !MAX_SIZE_BYTES! (
        set /a CURRENT_PART+=1
        call :InitNextDestination
    )

    echo Kopiere !FILE! nach !DEST!
    robocopy /njh /njs /nc /ns /np /mov /R:0 /W:0 "!SOURCE!" "!DEST!" "!FILE:%SOURCE%\=!" >nul  
)

:: Aufräumen
del "%FILE_LIST%"  
echo Kopiervorgang abgeschlossen.
exit /b


:: === FUNKTION: Initialisiere nächstes Zielverzeichnis ===
:InitNextDestination
set "DEST=%DEST_BASE%%CURRENT_PART%"  
if not exist "!DEST!" mkdir "!DEST!"  
goto :eof

:: === FUNKTION: Hole Gesamtgröße des Zielverzeichnisses in Bytes ===
:GetDirSize
setlocal
set "DIR=%~1"  
set "VAR=%~2"  
set "SIZE=0"  

for /f "tokens=3" %%S in ('dir /s /-c "%DIR%" ^| find "Datei(en)"') do (  
    set "SIZE=%%S"  
)

:: Entferne Punkte aus Zahlenformat (z. B. 1.234.567 → 1234567)
set "SIZE=%SIZE:.=%"  

endlocal & set "%VAR%=%SIZE%"  
goto :eof