Xls zu PDF automatisch

@echo on & setlocal
::
:Start
set src_dir=D:\Daten\PDF\in
set crv_dir=D:\Daten\PDF\Convert
set out_dir=D:\Daten\PDf\Out
:Abgleich
:srcabgleich
FOR /F "tokens=3 delims= " %%i in ('dir /a:A /s %src_dir% ^|find "Datei(en)"') do set groesse1=%%i  
if "%groesse1%" GTR 0 set groesse1=0   
:crvabgleich
FOR /F "tokens=3 delims= " %%i in ('dir /a:A /s %crv_dir% ^|find "Datei(en)"') do set groesse2=%%i  
if %groesse1% EQU %groesse2% goto wait
if not %groesse1% EQU %groesse2% goto kopieren

:Kopieren
Xcopy "%src_dir%" "%crv_dir%" /M /E  
if %crv_dir% GEQ 0 goto convert else wait

:Convert
for /f "delims=" %%a in ('dir /b /s /a-d "%crv_dir%"') do (  
D:\Daten\PDF\Convert2PDF.vbs "%%a") & Wait 2  
for /f "delims=" %%a in ('dir /b /s /a "%crv_dir%"') do (del "%%a")  

:FTP 
ftp -i -s:MeinHost.ftp
for /f "delims=" %%a in ('dir /b /s /a "%out_dir%"') do (del "%%a")  

:wait
ping 127.0.0.1 -n 10 >nul
goto start