BAT Maximale Ordnergroesse fuer xcopy einstellen

@echo off
set filepath=C:\BackupControl\DVDburn
set CurrentDate=%date:~7,2%-%date:~4,2%-%date:~12,2%
set /p StartDate=<%filepath%\StartDate.txt
set /p DVDnumber=<%filepath%\DVDnumber.txt 
set DVDFolder=W:\DVD%DVDnumber% %StartDate%



:continue
rem------Backup Ordnerinhalt in File TempList.txt----
dir E:\BACKUP\Backup\ /b> %filepath%\TempList.txt
goto copycheck

:copycheck
if not exist "%DVDFolder%" md "%DVDFolder%"  
if exist "E:\BACKUP\Backup\*DAD*" goto DAD  
if exist "E:\BACKUP\Backup\*ADassist*" goto ADassist  
if exist "E:\BACKUP\Backup\*AD*" goto AD  
if exist "E:\BACKUP\Backup\*Projects*" goto Projects  
if exist "E:\BACKUP\Backup\*Treasury*" goto Treasury  
if exist "E:\BACKUP\Backup\*Caisse*" goto Caisse  
if exist "E:\BACKUP\Backup\*Server*" goto Server  
if exist "E:\BACKUP\Backup\*Reception*" goto Reception  
goto end

:DAD
set Username=DAD
findstr /l DAD %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:ADassist
set Username=ADassistant
findstr /l ADassist %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:AD
set Username=AD
findstr /l AD %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:Projects
set Username=Projects
findstr /l Projects %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:Treasury
set Username=Treasury
findstr /l Treasury %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:Caisse
set Username=Caisse
findstr /l Caisse %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:Server
set Username=Server
findstr /l Server %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:Reception
set Username=Reception
findstr /l Reception %filepath%\TempList.txt> %filepath%\1.txt
set /p Folder=<%filepath%\1.txt
set user=E:\BACKUP\Backup\%Folder%
goto sizecheck

:Sizecheck
set /p DestSize=<%filepath%\DestSize.txt
for /f "tokens=3" %%d in ('dir "%User%" /-c /s ^2^> nul^| findstr /c:"File(s)" ') do echo %%d> %filepath%\SourceSize.txt  
set /p SourceSize=<%filepath%\SourceSize.txt
if 99999999999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,8%
if 9999999999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,7%
if 999999999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,6%
if 99999999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,5%
if 9999999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,4%
if 999999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,3%
if 99999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,2%
if 9999 GEQ %SourceSize% set KBSourceSize=%SourceSize:~0,1%
if 1000 GTR %SourceSize% set KBSourceSize=1
set /a "DirSize=%KBSourceSize%+%DestSize%"  
echo %DirSize% > %filepath%\DestSize.txt
if 4500000 gtr %DirSize% goto copy else goto DVDChange


:DVDChange
xcopy %filepath%\DVDLog\DVD%DVDnumber%.txt "Z:\*.*" /v /c /y  
xcopy %filepath%\DVDLog\DVD%DVDnumber%.txt %Finishdvd% /v /c /y
set /p StartDate=<%filepath%\StartDate.txt
move /y "W:\DVD%DVDNumber% %StartDate%" "W:\DVD%DVDNumber% %StartDate%--%CurrentDate%"  
set FinishDVD="%DVDFolder%--%CurrentDate%\*.*"  
echo %finishdvd%>%filepath%\finishdvd.txt
set /a DVDnumber=%DVDnumber%+1
echo "%DVDnumber%">"%filepath%\DVDnumber.txt"  
set DVDFolder=W:\DVD%DVDnumber% %CurrentDate%
echo %CurrentDate%> %filepath%\StartDate.txt
echo 0 >%filepath%\DestSize.txt
echo 0 >%filepath%\DVDBurnCounter.txt
goto copycheck

:copy
echo %Username%>> %filepath%\"DVDLog"\DVD%DVDnumber%.txt  
echo %date%>> %filepath%\DVDLog\DVD%DVDnumber%.txt
xcopy "%User%\*.*" "%DVDFolder%\%Folder%\*.*" /c /v /r /y /s /i>> "%filepath%\DVDLog\DVD%DVDnumber%.txt"  
echo ****END****>> %filepath%\DVDLog\DVD%DVDnumber%.txt
rd /s /q "%User%"  
del %filepath%\TempList.txt
dir E:\BACKUP\Backup\ /b> %filepath%\TempList.txt
goto copycheck

:end
del /q %filepath%\templist.txt
del /q %filepath%\SourceSize.txt
del /q %filepath%\1.txt
::---DVD Burn Counter---
if not exist %filepath%\DVDBurnCounter.txt echo 0 > %filepath%\DVDBurnCounter.txt
set /p DVDBurnCounter=<%filepath%\DVDBurnCounter.txt
set /a "DVDBurnCounter=%DVDBurnCounter%+1"  
echo %DVDBurnCounter% > "%filepath%\DVDBurnCounter.txt"  
if %DVDBurnCounter% EQU 20 goto DVDChange