Код: Выделить всё
@Echo Off
Setlocal EnableDelayedExpansion
MODE CON COLS=80 LINES=1
color 1e
xCopy /Y "Media\"*"" "%Windir%\Media"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Afternoon"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Calligraphy"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Characters"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Cityscape"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Delta"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Festival"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Garden"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Heritage"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Landscape"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Quirky"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Raga"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Savanna"
xCopy /Y "Media\AllinOne\"*"" "%Windir%\Media\Sonata"
Set N_Col=79
:: Cik faili jakope
Set cntA=203
Set cnt=0
:loop
Call :Media
Call :ProgressBar Processed
If Not %cnt%==%cntA% GoTo :loop
Echo.
ping -n 9 localhost>Nul
Exit /b
:ProgressBar
If %cnt%==0 (
For /L %%a In (1,1,%N_Col%) Do Set Line0=!Line0!°& Set Line1=!Line1!
<Nul Set /p X=!Line0!!Line1!
)
Set /a cnt+=1, Inc=cnt*N_Col/cntA-%cnt%*N_Col/cntA, prsnt=cnt*100/cntA
Title %1 %prsnt%%% Files: %cnt% from %cntA%
If %Inc% GTR 0 For /L %%a In (1,1,%Inc%) Do <Nul Set /p X=Ы
GoTo :EOF
:Media
For /L %%k In (1,1,10000) Do rem
GoTo :EOF
Exit /b