主题：[求助] VBS里面有异常处理机制吗？

添加的自定义函数，在运行的过程中，如果出现异常，能不能进行捕获处理，而不是终止执行？

 搭车同问，我有一个写日志的函数，但日志文件跟别的程序冲突导致VBS引擎中断。求解决方案，及时冲突也可以跳过错误，千万别让VBS引擎中断。


Sub SetSignalSystemOK(sTime)
    file = "Z:\SystemOK.log"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile(file, 2, True)
    a.WriteLine(sTime)
    a.Close
End Sub

出错在Set a = fs.OpenTextFile(file, 2, True)这句，可能是别的程序刚好在访问这个文件。

 补充一点，当时对话框弹出的错误值好像是70，也就说访问这个文件时没有权限。

运气不好，跑了2个月就今天出现了一次。

描述

启动错误处理程序。

语法

On Error Resume Next

说明

若不使用 On Error Resume Next 语句，发生的任何运行时错误都将是致命的，即，显示错误信息并终止运行。

On Error Resume Next 会使程序从紧随产生错误的语句之后的语句继续执行，或是从紧随最近一次调用过程（该过程含有 On Error Resume Next 语句）的语句继续运行。这个语句可以不顾运行时错误，继续执行程序，之后您可以在过程内部建立错误处理例程。在调用另一个过程时，On Error Resume Next 语句变为非活动的。所以，如果希望在例程中进行内部错误处理，则应在每一个调用的例程中执行 On Error Resume Next 语句。

 谢谢楼上！