我的操作是将一个文件移动到一个已有这个文件的文件夹a中，系统产生错误58,：文件已存在，我设置了程序异常处理程序，on error goto line, if err.number<>0 then ....end if ,但这个错误仍然在，，无法进入我设定的错误处理，怎么办，求解答。
先查找这个文件是否存在,如果存在,删除,再移动不就行了追问
我懒得写查找代码，就像通过错误处理程序解决问题。
追答x = Dir(vfullfilename, vbNormal)
If x "" Then Kill vfullfilename
很难理解楼主的偷懒目的何在,加上一句查找,一句删除,难道不比你通过错误控制还快速方便?
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-06-17
function test()
on error goto L_end
’功能代码
exit function'正常退出
L_end:'不正常退出
msgbox(err.discription)
end function
试试还会提示吗追问
on error goto L_end
’功能代码
exit function'正常退出
L_end:'不正常退出
msgbox(err.discription)
end function
试试还会提示吗追问
这个跟我那个不是一样的嘛？
追答你把我上面的 msgbox(err.discription) 删除 还会么
第2个回答 2014-06-17
if err.number<>0 then ....
goto line
end if
goto line
end if
