如何知道文件拷贝时原文件被读出了多少！

Question

你是想做进度条吧，同意ttyp(懒人)，这样就可以控制每次读多少了。

Answer 1

Private Sub Command1_Click()
Dim l As Long
Dim i As Long
Dim c(1024) As Byte
Open 源文件 For Binary Access Read Lock Read As #1 Len = 1024
Open 目标文件 For Binary Access Write As #2
l = LOF(1) / 1024
pb.Max = l
For i = 1 To l
    Get #1, , c()
    on error goto e
    Put #2, , c()
    on error goto 0
    pb.Value = i '进度条
    doevents
Next
Close #2
Close #1
exit sub
e:
  msgbox "写文件出错"
  exit sub
End Sub

Answer 2

对不起！我说错了！我要求的是WINDOWS下任意程序文件读取某个文件时（我已经知道是哪个文件）进行如上监控！
例如：我知道windows要调某个文件当它进行读取时！我作为第三方，如何捕获如上所说文件已经读取到哪了！
例如超级解霸播放一个影音文件现在正播到3分55秒！它已经读取到了这个影音文件的20000字节处！这时TEXT控件中显示该文件已经被读取20000个字节
也就是说文件的拷贝不再我这里！我只是想截获文件拷到哪！
懒人告诉我E-MAIL好吗！我想和你交流！希望你能帮助我！