backup script mit robocopy - verbersserungsvorschläge bzw. tipps

@echo off
echo ---------------------------
echo BackupScript OnlineShop   
echo by Alexander H. 2008 
echo with Robocopy ;)         
echo ---------------------------

set Datum=%date%;%time:~0,2%.%time:~3,2%.%time:~6,2% 

for /f "delims== tokens=1,2" %%i in ('findstr "Quelle" config.ini') do @set Quelle=%%j  
for /f "delims== tokens=1,2" %%i in ('findstr "Ziel" config.ini') do @set Ziel=%%j  

set "ZielOrdner=%Ziel%%date:~-10,2%_%date:~-7,2%_%date:~-4%_BackupW24"   

if not exist %Ziel% if not exist %Quelle% goto :Fehler1
if not exist %Ziel% if exist %Quelle% goto :Fehler2
if not exist %Quelle% if exist %Ziel% goto :Fehler3
if exist %Ziel% if exist %Quelle% goto :CreateAdminLog

:CreateAdminLog
if exist Adminlog.csv goto :Spaceman
if not exist Adminlog.csv echo Datum ;Uhrzeit ;Quelle ;Ziel ;Meldung1 ;Meldung2 ;Tipp ;Groesse Quelle (MB) ;Groesse Ziel (MB) (vor Backup) %*>> Adminlog.csv 
goto :Spaceman


:Spaceman
FOR /F "tokens=3 delims= " %%i in ('dir %Ziel% /-c') do set frei=%%i  
set /a ZielMBfrei=%frei:~,-3%/1024
set "FS=GetFolderSize.vbs  
echo WScript.Echo Int(CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments(0)).Size/1024/1024+.99)>%FS%   
for /f %%i in ('cscript //nologo %FS% "%Quelle%"') do set QuelleMB=%%i   
if %ZielMBfrei% GEQ %QuelleMB%   goto :Robocopy
if %ZielMBfrei% LSS %QuelleMB%   goto :Fehler4


:Robocopy
robocopy %Quelle% %ZielOrdner% /MIR /LOG+:Copylog.txt /TEE 
goto :Erfolg


set Meldung1=Backup nicht erfolgreich.


:Fehler1
echo %Datum% ;%Quelle% ;%Ziel% ;%Meldung1% ;Fehler 1: Quelle und Ziel nicht erreicht. ;Netzlaufwerk und Freigabe prüfen (auf Server angemeldet?), USB-Platte anschließen ; ; %*>> Adminlog.csv
goto :Ende_F


:Fehler2
echo %Datum% ;%Quelle% ;%Ziel% ;%Meldung1% ;Fehler 2: Ziel-HD nicht erreicht. ;Ziel-HD und Verbindung pruefen ; ; %*>> Adminlog.csv
goto :Ende_F


:Fehler3
echo %Datum% ;%Quelle% ;%Ziel% ;%Meldung1% ;Fehler 3: Quell-HD nicht erreicht. ;Netzlaufwerk und Freigabe prüfen (auf Server angemeldet?,LAN-Kabel defekt?) ; ;  %*>> Adminlog.csv
goto :Ende_F


:Fehler4
echo %Datum% ;%Quelle% ;%Ziel% ;%Meldung1% ;Fehler 4: Zuwenig Speicherplatz auf Zieldatenträger. ;Platz schaffen (siehe naechste Spalte) ;%QuelleMB%MB-min benoetigt ;%ZielMBfrei%MB-real vorhanden%*>> Adminlog.csv
goto :Ende_F


:Erfolg
set /a StillFree=%ZielMBfrei%-%QuelleMB%
echo %Datum% ;%Quelle% ;%Ziel% ;Backup erfolgreich ;%QuelleMB%MB von %Quelle% nach %ZielOrdner% kopiert ;Freier Speicher auf %Ziel% nach Backup: %StillFree%MB ;%QuelleMB%MB-min benoetigt ;%ZielMBfrei%MB-real(vor Backup)  %*>> Adminlog.csv
goto Ende_E


:Ende_E
cls
echo Backup erfolgreich ausgefuehrt am %date% um %time:~0,2%.%time:~3,2%.%time:~6,2%
echo Es wurden %QuelleMB%MB von %Quelle% nach %ZielOrdner% uebertragen. (Infos siehe AdminLog.csv)
echo Freier Speicher auf %Ziel% nach Backup: %StillFree%MB
echo (email@web.de)
pause
goto :TheEnd


:Ende_F
echo Backup abgebrochen am %date% um %time:~0,2%.%time:~3,2%.%time:~6,2%
echo Backup nicht erfolgreich - ein Fehler ist aufgetreten.(Infos siehe AdminLog.csv)
echo (email@web.de)
pause
goto :TheEnd


:TheEnd
if exist GetFolderSize.vbs del GetFolderSize.vbs