进度条文件:ProcessBar.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