【转】如何复制一个正在使用的文件?(VB6.0)

2012-02-16 21:02

【转】如何复制一个正在使用的文件?(VB6.0)

刚刚在群里与别人聊到,使用VB的FileCopy函数无法复制正在使用中的文件.

他是想将数据库备份.

网上有不少的办法,有使用API的,有使用FSO的等.

我想,无法复制使用中的文件,可能是使用了读写模式打开源文件的原因吧.

于是就试着写了以下函数:

Public Function FileCopyEx(ByVal SouFileName As String, ByVal DestFileName As String)
     '复制文件,可以复制正在使用的文件.
     'SouFileName - 源文件
     'DestFileName - 目标文件
     'By 马大哈
     '2007-05-05
     Dim tmpArr() As Byte
    
     Open SouFileName For Binary Access Read As #1
         ReDim tmpArr(LOF(1))
         Get 1, , tmpArr
     Close #1
    
     Open DestFileName For Binary As #2
         Put 2, , tmpArr
     Close #2
    
     ReDim tmpArr(0)              '释放内存
End Function

FileCopyEx与FileCopy是一样的用法,不过它可以复制正在使用中的文件.

代码非常简单,就不说明了.

但这种原理的代码是有问题的,就是在复制很大的文件时,程序会挂起.(文件小感觉不到)

最理想的是这样:

一,分段读入/写入,并返回进度;

二,放在一个线程里.

但是,VB6里多线程真的不好搞(至少我的本事还达不到让它稳定的程度.....)