Mehrere PDF zu PDF mit 1000 Seiten zusammenführen

pdftk Test.pdf dump_data 

@echo off & setlocal
set SourceDir=D:\PDF
set TargetDir=D:\PDFertig
set TempDir=D:\PDFTemp
set Prog=C:\Programme\pdftk-1.12\pdftk.exe
::Download "the pdf toolkit" über: http://www.accesspdf.com/index.php?topic=pdftk 
set NameNeu=%Date:~6,4%-%Date:~3,2%-%Date:~0,2%_
::Bei Bedarf auch Uhrzeit einfügen
::for /f "tokens=1-3 delims=:, " %%a in ('echo %time%') do set NameNeu=%NameNeu%%%a-%%b-%%c_ 
set MaxSeiten=1000
If exist %TempDir% rd /s /q %TempDir%
md %TempDir%
for %%a in (A_ J_) do call :ProcessFiles %%a
for %%a in (A_ J_) do call :ProcessFolders %%a
echo.
echo Bearbeitung abgeschlossen.
goto :eof
:ProcessFiles
If not exist "%SourceDir%\%1*.pdf" (echo Keine %1-Dateien vorhanden.) & goto :eof  
set SammelDir=%1%NameNeu%
set /a Teil=1
set /a Seiten=0
md "%TempDir%\%SammelDir%%Teil%"  
echo Bearbeite Sammelordner %SammelDir%%Teil%
for /f "delims=" %%f in ('dir "%SourceDir%\%1*.pdf" /b /od') do (for /f "tokens=2" %%i in ('%Prog% "%SourceDir%\%%f" dump_data ^| find "NumberOfPages"') do call :Check "%%f" %%i)  
goto :eof
:Check
set /a Seiten=%Seiten%+%2
if %Seiten% leq %MaxSeiten% goto :MoveIt
set /a Teil+=1
md "%TempDir%\%SammelDir%%Teil%"  
echo Bearbeite Sammelordner %SammelDir%%Teil%
set Seiten=%2
:MoveIt
move "%SourceDir%\%~1" "%TempDir%\%SammelDir%%Teil%"  
goto :eof
:ProcessFolders
If not exist "%TempDir%\%1*" (echo Keine %1-Verzeichnisse vorhanden.) & goto :eof  
for /f %%f in ('dir "%TempDir%\%1*" /b /ad') do %Prog% %TempDir%\%%f\*.pdf cat output "%TargetDir%\%%f.pdf"  

If not exist "<b>%SourceDir%\%1*.pd</b>f" (echo Keine <b>%1</b>-Dateien vorhanden.) & goto :eof  

If not exist "<b>D:\PDF\A_*.pdf</b>" (echo Keine <b>A_</b>-Dateien vorhanden.) & goto :eof  

for /f "delims=" %%f in ('dir "<b>%SourceDir%\%1*.pdf</b>" /b /od') do ...  

echo %SammelDir%%Teil%;%Seiten%;%1;%2 >> D:\Log.txt

...
If not exist "%TempDir%\%1*" (echo Keine %1-Verzeichnisse vorhanden.) & goto :eof  
for /f <b>"delims="</b> %%f in ('dir "%TempDir%\%1*" /b /ad')