把进度条和实际联系起来

来源：百度知道 编辑：UC知道 时间：2024/06/27 10:20:10
进度条的代码没问题,会写,但怎么样把这个进度条和现实情况想结合呢?比如:我拷贝一个10K的文件,在完成的时候,刚好进度条也到达末尾,如果拷贝一个10G的文件也是一样的,也就是说,把平时的代码真正应用到实际当中,具有用处.

会的不妨写代码,用例子来举证,如果很复杂,请稍写点注释.

Private Function CopyFile(Src As String, Dst As String) As Single
Dim BTest!, FSize!
Dim F1%, F2%
Dim sArray() As Byte
Dim buff As Integer

Const BUFSIZE = 1024

buff = 1024

F1 = FreeFile
Open Src For Binary As F1
F2 = FreeFile
Open Dst For Binary As F2

FSize = LOF(F1)
BTest = FSize - LOF(F2)
ReDim sArray(BUFSIZE) As Byte

Do
If BTest < BUFSIZE Then
buff = BTest
ReDim sArray(buff) As Byte
End If

Get F1, , sArray
Put F2, , sArray

BTest = FSize - LOF(F2)
If BTest < 0 Th