Batch mit Fortschrittsanzeige

@echo off &setlocal
color 0c

:: Es soll ja erstmal gewartet werden
pause > nul

:: *Schleife laufen, bis Prozess sichtbar ist
:loop1

:: Beginn Kopiervorgang - vielleicht besser an einer anderen Stelle der Batch???
start "Kopieren" /min xcopy.exe c:\TEST22.txt C:\Users\imebro\Desktop\ > nul  

tasklist /nh /fi "imagename eq xcopy.exe" 2>&1|findstr /b /i /l /c:"xcopy.exe">nul &&goto loop2  
ping -n 1 localhost>nul
goto loop1

:: *Schleife laufen und Balkenzeichen malen, bis Notepad geschlossen ist
:loop2
<nul set /p "=#"  
tasklist /nh /fi "imagename eq xcopy.exe" 2>&1|findstr /b /i /l /c:"xcopy.exe">nul ||goto ahead  
ping -n 2 localhost>nul
goto loop2
:ahead

echo.
echo.
echo KOPIEREN ERFOLGREICH BEENDET!
echo.
echo.
pause > nul

@echo off &setlocal

set "File=%temp%\xcopyLogFile%random%"  

start "" /min Xcopy /y "D:\Eine Datei" "D:\Neuer Ordner" >"%File%"  

echo Kopieren hat begonnen!

:Test
<nul set/p=#
(echo( >"%File%") 2>nul || (ping localhost -n 2 1>nul &&goto :Test)  

echo(
echo(
echo(
echo Kopieren ist Fertig!
echo(
echo(
pause
goto :eof

start "Kopieren" /min xcopy.exe G:\Backup-imebro I:\Backup-imebro /D /F /R /S /Y 1>c:\LOG_BATCH.LOG 2>&1   

start "Kopieren" /min cmd /c "xcopy.exe G:\Backup-imebro I:\Backup-imebro /D /F /R /S /Y 1>c:\LOG_BATCH.LOG 2>&1"   

<nul set /p "=###" 

@ echo off &setlocal
title BACKUP
set "prompt=$g"  
::echo on

 rem ----- Einstellungen

set             "LogFile=D:\LOG_BATCH.LOG"  
set              "Quelle=D:\Eingang"  
set                "Ziel=D:\Backup\"  
set                 Wait=2
set              "FTitel=Backup wird zurzeit Durchgefuehrt"  
set /a  x  =  1  ,  ax  = 60

 rem -----LetzteMeldungAnzeigen und je 2 doppelpunkte davor

   set       "NICHT_Anzeigen=1>nul"  
:: set "NICHT_FehlerAnzeigen=3>nul"  

 rem ----- Ende Einstellungen

(
if not defined LogFile echo          LogFile nicht definiert&pause&goto :eof
if not defined Quelle (echo          Quelle nicht definiert&pause&goto :eof) else if not exist "%Quelle%" echo          Quelle: "%Quelle%" nicht gefunden&pause&goto :eof  
if not defined ziel echo          Ziel nicht definiert&pause&goto :eof
)>&2
for %%i in (%LogFile%) do type nul >"%%~dpitest.log" &&del "%%~dpitest.log" ||(echo          LogFile kann nicht geschrieben werden! Kontrollieren!&pause&goto :eof)>&2  

 rem sucht nach Bevorzugter Wartefunktion
"C:\Windows\sleep.exe" 1 2>nul >&2 && set "Warte=2>nul >&2 "C:\Windows\sleep.exe" " || waitfor 2>&1 |find "FEHLER:" >nul && set "Warte=2>nul >&2 Waitfor x /t " || set "Warte=2>nul >&2 ping localhost -n "  

set "LogName=%Quelle%--%ziel%"  
set "OrigLog=%LogFile%"  
:Logname
for /f "tokens=1*delims=\:*?" %%i in ("%Logname%") do if "%%i" neq "%Logname%" set "Logname=%%i_%%j" & goto :Logname  
for %%i in ("%LogFile%") do set "Logfile=%%~dpni_%Logname%%%~xi"  
set "Last=0"  
for %%i in ("%LogFile%") do set "LastBUtime=%%~ti" &if exist %%i (set "BStatus=1") else set "BStatus="  

 rem LetzteMeldungAnzeigen
%NICHT_Anzeigen% %NICHT_FehlerAnzeigen% (
(<"%LogFile%" find "Datei(en) kopiert") 2>nul >&2 && (echo(&echo(         Letzte Backup Meldung^(en^): %LastBUtime%&<%LogFile% find "Datei(en) kopiert" &set "Abort=") || set "Abort=1"  
for /f "tokens=1*delims=:" %%i in ('  
 findstr /r /c:"Syntaxfehler." /c:"Datei .* nicht gefunden" /c:"Datei kann nicht auf sich selbst kopiert werden" /c:"Unzul„ssige Parameteranzahl" /c:"Ungltige Laufwerkangabe" /c:"Kopiervorgang konnte nicht gestartet werden!" /c:"Der Befehl .* ist entweder falsch geschrieben" /c:"konnte nicht gefunden werden." "%LogFile%"  2^>nul ^|findstr /n "^"   
') do (set "Abort=1"&if %%i equ 1 (echo(&echo(         Letzte Backup Fehler!-meldung^(en^):&echo(%%j) else echo(%%j)>&3  
)
 rem laeuft das Backup bereits?
(type nul >>%LogFile%)2>nul ||(echo(&echo          Backup ist noch in Arbeit!&(for /f %%i in (' find /v /c "" ^<"%LogFile%" ') do set /a Last=%%i&for /f %%i in (' find /v /c "?" ^<"%LogFile%" ') do echo          ca. %%i Dateien Kopiert.) 2>nul &goto :TimeOutError)  

 REM Kopieren der Backupdateien von "%Quelle%" auf externe Festplatte  
(
echo.
echo.
echo.
echo.         *****************************************************************
echo.         *                                                               *
echo.         *                   Aktualisieren des BACKUPS                   *
echo.         *                                                               *
echo.         *               Laufwerk G --^> Externe Festplatte               * 
echo.         *                                                               *
echo.         *          --- nur veraenderte Daten werden kopiert ---         *
echo.         *                                                               *
echo.         *****************************************************************
echo.
echo.                                 ^(c^) imebro 2012
echo.
)
if defined Abort (
echo.
echo.
if defined BStatus (echo          !!!  %LastBUtime% - Das Backup wurde abgebrochen!   !!!
) else              echo          ***  !!!  Hinweis, letzter Backup-Log- nicht vorhanden!  !!!  ***
echo.
echo.
)
:IsOnline
for %%i in ("%Ziel%") do if not exist %%~di (  
echo.
echo.
echo.         *****************************************************************
echo.         * Zuerst die externe FP anschliessen! - Weiter mit Tastendruck! *
echo.         *****************************************************************
pause > nul
goto :IsOnline
)
echo.
echo.
echo.

CHOICE /C JN /M ".        Kopiervorgang beginnen?"  
if errorlevel 2 goto :eof
del "%LogFile%" 2>nul  
echo(&echo(

 rem -----Monitoring-------Rest vom xcopy eventuell Anpassen--------------------------------------

start "%FTitel%" /min cmd /c " copy "%Quelle%" "%ziel%" /Fridys 1>"%LogFile%" 2>&1"  

 rem -----Ende Monitoring-------------------------------------------------------------------------

:TimeOutError

 rem Marke TimeOutError - 
if not defined TimeOutError set "TimeOutError=20"  
if %TimeOutError% gtr 10 if not exist "%LogFile%" (set/a "TimeOutError-=1") else set "TimeOutError=10"  
%warte%1
if %TimeOutError% gtr 10 goto :TimeOutError
if %TimeOutError% neq 0 (for /f %%i in (' find /v /c "" ^<"%LogFile%" ') do if %%i equ 0 set /a TimeOutError -=1 &goto :TimeOutError)2>nul || (>"%LogFile%" echo LogFile wurde nicht beschrieben. Kopiervorgang konnte nicht gestartet werden!)  
if %last% gtr 3 (set /a "lastMessage=last-3") else set /a "lastMessage=0"  
set "error="  
findstr /r /c:"Syntaxfehler." /c:"Datei .* nicht gefunden" /c:"Datei kann nicht auf sich selbst kopiert werden" /c:"Unzul„ssige Parameteranzahl" /c:"Ungltige Laufwerkangabe" /c:"Kopiervorgang konnte nicht gestartet werden!" /c:"Der Befehl .* ist entweder falsch geschrieben" /c:"konnte nicht gefunden werden." "%LogFile%" >&2  && (  
echo.
echo.         * !!! Das Backup konnte nicht gestartet werden. Fehler!!!*
echo.
echo.
echo.
echo.
set "error=1"  
goto :no
) || (
echo.
echo.
echo.         **************************************
echo.         * Der Kopiervorgang wurde gestartet! *
echo.         **************************************
echo.
)

:Loop2

::echo on
 rem -----
(
for /f "%skip% tokens=1* delims=:" %%i in ('findstr /n "^" "%LogFile%" 2^>nul') do (  
	set /a last=%%i
	set "Inputstream="  
	  rem Logfile
	if %last% lss %%i echo(%%j
))>>"%OrigLog%"   

 rem -----EingabeMeldungen Anzeigen
for /f "tokens=1* delims=:" %%i in ('findstr /n /r /c:"^Ist das Ziel .* ein Dateiname" /c:"^oder ein Verzeichnisname" /c:".*? [^]." "%LogFile%" 2^>nul') do if %lastmessage% lss %%i (  
	set /a lastMessage=%%i
	if not defined Inputstream echo(&echo(Achtung! Eine Eingabe wird erwartet.&echo Best„tige im Fenster "%FTitel%" laut dieser Anfrage:&echo(  
	echo(    %%j
	set /a "x=1"  
	set "Inputstream=goto :Loop2"  
)
%warte%%wait%
if %last% neq 0 set "skip=skip=%last%"  

 rem -----FileToBeCopiedSign-oder-Monitoring Ende----
(type nul >>"%LogFile%")2>nul || (%Inputstream%  
	set /a "x-=1", y=1/x 2>nul || (  
	echo(&set/p"=.        "<nul& set /a "x=ax")  
	set/p"=#"<nul  
	goto :Loop2
)

 rem -----enthaelt der Log die Letzte Zeile?
for /f %%i in ('find /v /c "" ^<"%LogFile%"') do if %%i neq %last% goto :Loop2  

find "Datei(en) kopiert" <"%LogFile%" >nul && (  
REM ---------------------------------------------------------------------------------------------------
echo.
echo.
echo.
echo.         **********************************************************
echo.         * Das Backup auf der ext. Festplatte wurde aktualisiert! *
echo.         **********************************************************
echo.
echo.
echo.
) || (
echo.
echo. 
echo.
echo.
echo.         *** !!!  Das Backup ist nicht vollst„ndig. Fehler  !!! ***
echo.
echo.
echo.
echo.
set "error=1"  
)
:no
find "Datei(en) kopiert" <"%LogFile%"   
if defined error (pause) else %warte%5
:List
if %last% gtr 2 start notepad "%LogFile%"  

echo.         *               Laufwerk G --^> Externe Festplatte               *