'总进度
ProgressBar1.Min = 0
ProgressBar1.Max = z + 1
ProgressBar1.Visible = True
ProgressBar1.Value = ProgressBar1.Min
'每个文件的
ProgressBar2.Min = 0
ProgressBar2.Max = m + 1
ProgressBar2.Visible = True
ProgressBar2.Value = ProgressBar2.Min
for i=0 to z
for j=0 to m
'处理每个文件
ProgressBar2.Value =ProgressBar2.Value +1
next j
ProgressBar1.Value =ProgressBar1.Value +1
next i
ProgressBar1.Min = 0
ProgressBar1.Max = z + 1
ProgressBar1.Visible = True
ProgressBar1.Value = ProgressBar1.Min
'每个文件的
ProgressBar2.Min = 0
ProgressBar2.Max = m + 1
ProgressBar2.Visible = True
ProgressBar2.Value = ProgressBar2.Min
for i=0 to z
for j=0 to m
'处理每个文件
ProgressBar2.Value =ProgressBar2.Value +1
next j
ProgressBar1.Value =ProgressBar1.Value +1
next i
可以事先设置最小和最大值。