VB6 如何在文件复制完毕后提示成功呢???
如何在filecopy "d:\txt.txt","c:\txt.txt"
文件复制完毕后提示成功呢?
先比较一下,然后msgbox 因为无法获得复制的进度,那是filecopy内部的事务,所以不好办。
on error goto err1修改下,有点错误。
filecopy "d:\txt.txt","c:\txt.txt"
err1:
if error.number=0 then
msgbox "复制成功",vbinformation
end if
on error goto err1可以拿一个大点的文件测试,vb会等待filecopy完成的。 如果是大文件的话,程序会等复制完毕后再继续执行下面的语句么?
filecopy "d:\txt.txt","c:\txt.txt"
err1:
if err.number=0 then
msgbox "复制成功",vbinformation
else
msgbox "复制失败",vbexclamation
end if
err1:
if err.number=0 then
msgbox "复制成功",vbinformation
else
msgbox "复制失败",vbexclamation
end if
是的,自己测试下加深印象,方法也很简单。
on error goto err1
filecopy "d:\txt.txt","c:\txt.txt"
err1:
if err.number=0 then
msgbox "复制成功",vbinformation
else
msgbox "复制未成功",vbinformation
end if
经过测试,复制大文件的时候,程序要在它复制完毕后才运行到下一语句,所以基本没有需要检测复制是否完毕,只需要检测是否有错误就好了。 汗……又迟了
补充:VB , 基础类