vb 求异常处理的代码，解决 复制已打开文件出错

on error resume next '出错后跳到下一句
if err <> "" then '当err不为空时
if err = * then '如果err=*
处理语句
end if
end if

if err = * then这个语句根据你具体需要自己改，根据错误号显示错误信息