Fortschrittanzeige bei batch bzw batchkopiervorgang

:: --- snipp Hartz4ProgressBar.bat Biber 2007
@echo off & setlocal enableDelayedExpansion
:: --------von hier an anpassen
Set "sourcefiles=D:\temp1\*.*" & set "targetdir=d:\xyz\"  
Set "xcopyOpts= /s /e /y /h"  
:: --------bis hier her anpassen
Set "tmplist=%temp%\x2copy.lst  
xcopy %xcopyOpts% /L "%sourcefiles%" "%targetdir%" >%tmplist%  
for /f %%i in ('findstr "Datei(en)" %tmplist%') do Set /a Anzahl=%%i  
For /f "delims=" %%i in ('findstr /v "Datei(en)" %tmplist%') do call :XCopyIt "%%i" "%sourcefiles%"  
del %tmplist%
goto :eof

:XCopyIt Parameter1: FQ-Quelldateiname para2: Sourcefiles
Echo noch %Anzahl% Dateien...
set "targetsubpath=%~dp1"   
<b>ECHO</b> xcopy %xcopyOpts% %1 %targetDir%!targetSubpath:%~dp2=!
set /a Anzahl-=1
goto :eof

(=20:01:16  F:\=)
>f:\temp\hartz4Progressbar.bat
noch 1673 Dateien...
xcopy  /s /e /y /h "D:\temp1\01000100..txt" d:\xyz\   
noch 1672 Dateien...
xcopy  /s /e /y /h "D:\temp1\0cooltest.ps1" d:\xyz\   
noch 1671 Dateien...
xcopy  /s /e /y /h "D:\temp1\106071_PSB_2006.xls" d:\xyz\   
....
.....
...und kommt Stunden später hier an...
noch 3 Dateien...
xcopy  /s /e /y /h "D:\temp1\Visio 2003\FILES\SETUP\SETUP.INI" d:\xyz\Visio 2003\FILES\SETUP\   
noch 2 Dateien...
xcopy  /s /e /y /h "D:\temp1\Visio 2003\FILES\SETUP\VISPRO.XML" d:\xyz\Visio 2003\FILES\SETUP\   
noch 1 Dateien...
xcopy  /s /e /y /h "D:\temp1\Visio 2003\FILES\WINDOWS\INF\AER_1031.ADM" d:\xyz\Visio 2003\FILES\WINDOWS\INF\   

:: --- snipp Hartz4ProgressBar.bat Biber 2007
@echo off & setlocal enableDelayedExpansion
:: --------von hier an anpassen
REM Ich gehe davon aus, dass es einen zu kopierenden Datenklumpen, z.b. alle Dateien aus "D:\Temp" gibt und einen Zielordner "d:\xyz"  
REM die beiden könnten/würden in einem produktiven/flexibleren Batch als Parameter %1  und %2 übergeben werden.
REM Wichtig dabei: Parameter %2 (%targetDir%) sollte einen abschliessenden Backslash haben.
REM Damit XCopy rafft, dass es ein Verzeichnis ist, keine Datei.
Set "sourcefiles=D:\temp1\*.*" & set "targetdir=d:\xyz\"  
REM Hier also <i>eigentlich</i> ergänzen: 
if [%1] NEQ  set "sourcefiles=%~1"  
if [%2] NEQ  set "targetDir=%2"  
REM XcopyOpts sind die XCopy-Optionen, mit denen kopiert werden soll. Siehe XCopy /?
Set "xcopyOpts= /s /e /y /h"  
:: --------bis hier her anpassen
Set "tmplist=%temp%\x2copy.lst"  && REM eine temporäre Textdatei lege ich an...  

REM Alles in %tmplist% schreiben, was XCopy kopieren <i>würde</i>... beachte den Parameter /L wie /List
xcopy %xcopyOpts% /L "%sourcefiles%" "%targetdir%" >%tmplist%  
REM Alles, was Xcopy in einem Schwung kopiert <i>hätte</i> kopiere ich jetzt häppchenweise Datei für Datei gemäß der Liste

REM Vorher lese ich noch die Gesamtanzahl...die steht auch in der Liste.. und merke mir die in %Anzahl%
for /f %%i in ('findstr "Datei(en)" %tmplist%') do Set /a Anzahl=%%i  

REM häppchenweise Datei für Datei gemäß der Liste kopieren bzw XCopyIt-Block aufrufen...
For /f "delims=" %%i in ('findstr /v "Datei(en)" %tmplist%') do call :XCopyIt "%%i" "%sourcefiles%"  
REM Jetzt ist die Liste abgearbeitet... aufräumen...
del %tmplist%
REM Ende von alles... hier kann auch noch ein "Echo fertig..." und ein "pause" hin  
goto :eof


REM XcopyIt bekommt den vollständigen Dateinamen (fully qualified) und als zweiten Parameter das Root-Verzeichnis der Quelldateien.
REM weil ich ja in das "richtige" Zile-Unterverzeichnis kopieren will (D:\temp\1.txt nach D:\xyz\1.txt; D:\Temp\sub\subsub\2.txt nach D:\xyz\sub\subsub\)  
:XCopyIt Parameter1: FQ-Quelldateiname para2: Sourcefiles
Echo noch %Anzahl% Dateien...
set "targetsubpath=%~dp1"   
REM Na ja...diese und die nächste Zeile vielleicht zweimal lesen... Parameter 1 ist z.B "D:\temp\sub\subsub"  ->davon braiche ich das "sub\subsub"  
REM Alles, was davor steht ("D:\Temp") kann wech... gehört nicht in die Zielpfadangabe  
ECHO xcopy %xcopyOpts% %1 %targetDir%!targetSubpath:%~dp2=!
set /a Anzahl-=1
goto :eof