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

引用 3 楼 sysdzw 的回复:

VB code
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

filecopy "d:\txt.txt","c:\txt.txt"



err1:

if err.number=0 then 

  msgbox "复制成功",vbinformation

else

  msgbox "复制失败",vbexclamation

end if

可以拿一个大点的文件测试，vb会等待filecopy完成的。 如果是大文件的话，程序会等复制完毕后再继续执行下面的语句么？
err1:
if err.number=0 then 
  msgbox "复制成功",vbinformation
else
  msgbox "复制失败",vbexclamation
end if

引用 5 楼 guofu_9070 的回复:

如果是大文件的话，程序会等复制完毕后再继续执行下面的语句么？
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 ,  基础类