Backup mit Sicherung der alten Daten

Older		 43		 desktop.ini    0%  100%					 
 		 1		 D:\Entwicklungen\						 
*EXTRA Dir	 -1		 \\192.168.5.252\Michael\DS-NB-Akt\D\Entwicklungen\_bv-hw\	 
*EXTRA Dir	 -1		 \\192.168.5.252\Michael\DS-NB-Akt\D\Entwicklungen\PC-Geh	 
New File	 373760	 #Aufkleber-BV-PC.doc  0%  17%   35%   52%   70%   87%  100%	 

FOR /F "delims=" %%f in ("%temp%\liste.txt") do (  

set "backuppart=!backuppart:%ziel%=!"  

@echo off
if exist BackupFehler.txt del BackupFehler.txt
for /F "tokens=1,2" %%a in ('Date /T') do set HEUTE=%%a  

set Quelle=D:\
set /p "ZielDisk=Bitte Sicherungslaufwerk angeben (ohne :) "  
set "Backup=%ZielDisk%:\DatenSicherung-NB\Backup_%HEUTE:~8,4%%HEUTE:~3,2%%HEUTE:~0,2%"  
set "Ziel=%ZielDisk%:\DatenSicherung-NB\D"  
::!!!Unbedingt bei :BackupExtraFile den Eintrag ":~23," an die Länge des Zielpfads anpassen!!! 
set /p "Ablauf=Nur (S)icherung oder mit (B)ackup: "  
if %Ablauf%==s goto Sichern

::Liste der Backup-Dateien erstellen
robocopy %Quelle% %Ziel% /B /FFT /MIR /R:3 /W:2 /XD $_ $PArchiv Recycler "System Volume Information" /NDL /NS /NJH /NJS /L >"ListeBackup.txt"  

:: Kopieren der Dateien in der Liste zum Backup
FOR /F "tokens=1,2 delims=	" %%i in (ListeBackup.txt) do call :BackupLoop "%%i" "%%j%"  

:Sichern
echo.
echo Beginne mit der Sicherung....
echo.
robocopy %Quelle% %Ziel% /B /FFT /MIR /R:3 /W:2 /XD $_ $PArchiv Recycler "System Volume Information"  
robocopy "C:\Dokumente und Einstellungen\Keite\Desktop" "%ZielDisk%:\DatenSicherung-NB\Desktop" /B /FFT /MIR /R:3 /W:2  
if %ERRORLEVEL% GEQ 8 goto EndeFehler
if exist BackupFehler.txt goto EndeFehler

:EndeErfolg
echo.
echo ###########################################
echo # Die Sicherung wurde erfolgreich beendet! 
echo # (Robocopy-Ergebnis %ERRORLEVEL% )          
echo # Taste drcken um Fenster zu schlieáen... 
echo ###########################################
Pause >nul
goto :EOF

:EndeFehler
if exist BackupFehler.txt call BackupFehler.txt
echo.
echo ###########################################
echo # Es ist ein Fehler aufgetreten!           
echo # (Robocopy-Fehler %ERRORLEVEL% )          
echo # Taste drcken um Fenster zu schlieáen... 
echo ###########################################
Pause >nul
goto :EOF

:----------------------------------------------Backup-Subroutine
:BackupLoop

set FileTyp=%1
echo %FileTyp%
if %FileTyp%=="    New File  " goto EndeBackupLoop  
if %FileTyp%=="    Newer     " goto BackupNewFile  
if %FileTyp%=="  *EXTRA File " goto BackupExtraFile  
goto EndeBackupLoop

:BackupNewFile
set BackupQuellPfad=%2
set BackupQuellPfad=%Ziel%%BackupQuellPfad:~3,-1%
set BackupZielPfad=%2
set BackupZielPfad=%Backup%%BackupZielPfad:~3,-1%*
xcopy "%BackupQuellPfad%" "%BackupZielPfad%" /S /V /H /R /Y /C  
if NOT %ERRORLEVEL%==0 echo ERR-BcpNF bei: "%BackupQuellPfad%" >>BackupFehler.txt  
goto EndeBackupLoop

:BackupExtraFile
set BackupQuellPfad=%2
set BackupQuellPfad=%BackupQuellPfad:~1,-1%
set BackupZielPfad=%2
set BackupZielPfad=%Backup%%BackupZielPfad:~23,-1%*
xcopy "%BackupQuellPfad%" "%BackupZielPfad%" /S /V /H /R /Y /C  
if NOT %ERRORLEVEL%==0 echo ERR-BcpEF bei: "%BackupQuellPfad%" >>BackupFehler.txt  

:EndeBackupLoop
goto :EOF
:----------------------------------------------Backup-Subroutine-Ende