进度条文件：ProcessBar.bat
VBS脚本：MakeBar.vbs
测试文件：Test.bat
@echo off
MakeBar.vbs %1 %2
set /p v=<pb.dat
del pb.dat
cls
@echo %v%VBS脚本：MakeBar.vbs
Set a = WScript.Arguments
dim str
str = string(cint(a(0)),a(1))
createobject("scripting.filesystemobject").createtextfile("pb.dat").write(str)测试文件：Test.bat
@echo off
for /l %%v in (0,1,20) do @call ProcessBar.bat %%v "■"
pause
