如何在文件拷贝中使用进度条.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

FileCopy的 确 存 在 你 说 的 问 题 。 你 可 以 使 用 API函 数 SHFileOperation， 这 个 函 数 可 以 实 现 拷 贝 功 能 ， 同 时 还 可 以 显 示 带 有 进 度 条 的 标 准 动 画 对 话 框 。 
    陈 鸿 伟 来 信 表 示 ： 对 SHFileOperation还 不 太 满 意 ， 因 为 它 要 打 开 自 己 的 窗 口 ， 我 希 望 的 是 把 进 度 条 嵌 入 到 我 的 窗 口 中 。 他 提 出 下 面 的 解 决 办 法 ： 
    Public sub 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 Then 
     ProgressBar.Value = 100 
     Else 
     ProgressBar.Value = (100 - Int(100 * BTest / FSize)) 
     End If 
     Loop Until BTest <= 0 
     
     Close F1 
     Close F2 
     CopyFile = FSize 
     
    End sub 
<END>