进度条如何实现？

Question

我要的进度条实现一个很大的文件的COPY进度，如何在COPY的过程中获得进度条的VALUE值？

Answer 1

while doevents()
     progress1.value=progress1.value+1
wend

Answer 2

实在不行就自己做个copy
这样就简单了，用copied/total就可以
可是这样会比较慢

Answer 3

这个copy动作是用shell调用copy命令还是自己用程序实现的？如果用程序自己实现（打开文件边读边写），就很简单。参考以下伪码
dim filesize as doubleprogress1.value=0
filesize=filelen(源文件)
progress1.max=filesize
open 源文件
open 目标文件
while not eof(源文件)
    从源文件中指定字节
    progress1.value=progress1.value+读取字节
    写指定字节到目标文件
wend
close 目标文件
close 源文件