Question

VB 使用copyfile函数时 怎么样添加一个进度条

VB 用copyfile函数时，如果添加一个进度条，我试过很多方法，但都不行，你们有什么方法吗?
用读取和写入的方法，会改变文件的MD5值，更重要的是文件日期都变了，当然了也可以在写入完数据后再改日期。还有一个问题，就是在有的情况copy完后，旧文件有改变后，当再次copy时，不知道是什么原因，copy也没有用

Answer 1

copyfile的时候，程序会卡住，没有机会显示进度条。如果非要用copyfile，需要创建新线程监视，这是高技术。实际可行的方法是自己编写copyfile，用基本文件操作来一块块复制，这样才能显示。

Answer 2

自己写替代函数比较容易

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 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 Function

Private Sub Command1_Click()
CopyFile "z:\win.rar", "z:\1\win.rar"'调用: CopyFile "源", "目标"
End Sub

Answer 3

楼主,还是使用API函数SHFileOperation吧,它是调用Windows系统的"文件操作"功能.可以显示进度条.就是我们平时复制文件出现的窗口一样的.另外它还可以移动,删除.
具体的使用方法见:
http://hi.baidu.com/100bd/blog/item/796918dc1b62c3d28c1029e6.html

Answer 4

该函数好像不能加