Как сделать прогресс-бар?

xcopy \\192.168.0.11\555\BackUp_HOME\1 \\192.168.0.11\555\BackUp_HOME\2 /s /e

@echo off
setlocal EnableDelayedExpansion
 
set in=\\192.168.0.11\555\BackUp_HOME\1
set out=\\192.168.0.11\555\BackUp_HOME\2
 
:: считаем количество файлов
For /F "Delims=" %%i In ('DIR /B/S/A-D "%in%\*"^|Find /V /C ""') Do Set cntA=%%i
Set cnt=0
Set N_Col=79
 
:: отправляем файлы на копирование
For /F "Delims=" %%i In ('DIR /B/S/A-D "%in%" 2^>Nul') Do (
Call :Work "%%i"
Call :Bar Обработано
)
pause
exit /b
 
:Work
Set "file=%~1"
xcopy /s /e "%~1" "%out%" >Nul 2>>"%~dpn0.err"
GoTo :EOF
 
:Bar
If %cnt%==0 (
 For /L %%a In (1,1,%N_Col%) Do Set Line0=!Line0!░
 For /L %%a In (1,1,%N_Col%) Do Set Line0=!Line0!
 <Nul Set /p X=!Line0!
)
Set /a Inc=((%cnt%+1)*%N_Col%)/%cntA%-(%cnt%*%N_Col%)/%cntA%
If %Inc% GTR 0 For /L %%a In (1,1,%Inc%) Do <Nul Set /p X=█
Set /a cnt+=1
Set /a prsnt=cnt*100/cntA
Title %1 %prsnt%%% файлов: %cnt% из %cntA%
GoTo :EOF