一个关于VB中复制文件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/28 20:31:17
我写的一个程序在用FileCopy复制比较大的文件时会造成程序假死 请问怎么解决？
再请问怎么用ProgressBar控件表示文件复制的进度？ 谢谢了！

在窗体上添加一个Button、ProgressBar、CommonDialog，把下面的代码复制过去就可以了。

Private Sub Command1_Click()
Dim InputFileName As String
Dim OutputFileName As String

CommonDialog1.ShowOpen
InputFileName = CommonDialog1.FileName

CommonDialog1.ShowSave
OutputFileName = CommonDialog1.FileName
MyFileCopy InputFileName, OutputFileName, ProgressBar1

End Sub

Sub MyFileCopy(sFileName0 As String, sFilename As String, ProgressBarX As MSComctlLib.ProgressBar)
'当 N=0时 ,即 为 Copy
ProgressBarX.Value = ProgressBarX.Min
Const KB = 1024
Dim nKB As Long
nKB = 64
Dim FileBuffer() As Byte
Dim FileNumberS As Long
Dim FileNumberT As Long
Dim lFileLen As Long
lFileLen = FileLen(sFileName0)
ProgressBarX.Max = lFileLen \