安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

比Vba.filecopy更好的复制文件同时并显示文件复制的进度

2017-09-06 14:53:00
zstmtony
原创
1269

使用Vba.filecopy 复制文件无法显示文件的复制进度,如果文件比较大的话,用户可能不知道你的Access数据库系统正在处理什么,以为死机或程序崩溃了,如果能够有一个文件复制的函数,在复制大文件的过程中能够显示复制的进度,这样交互性会更好一些

下面写的这个通用函数就是解决了这个问题:



'Src 是待复制的原文件名(含路径),Dst是目录路径或文件 
Private Function CopyFile(Src As String, Dst As String) As Single
     'Access交流网的 tmtony 整理
    '复制文件并显示复制文件的进度,?#28304;?#25991;件非常有用
     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 DoEvents Get F1, , sArray Put F2, , sArray BTest = FSize - LOF(F2) If BTest < 0 Then UpdateProgress 100 Else me.窗体进度条标签.captipn= (100 - Int(100 * BTest / FSize)) '显示文件复制的进度 End If Loop Until BTest <= 0 Close F1 Close F2 CopyFile = FSize End Function
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:3
内存占用:4.50MB
PHP 执行时间:0.08
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
福建体彩11选5走势图 女孩与枪免费试玩 赌徒照片 全天955彩票分分快3计划数据 猛龙过街1 澳洲pk10计划手机版 K歌乐韵送彩金 七星彩查询 黑暗故事在线客服 北京pk10高手赌法