PutErrLog 函数
简介
写错误日志。
语法
PutErrLog([ErrorSub][, ErrorInfo][, FileNumber][, LogFile])
输入参数
| 参数名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| ErrorSub | 可选 | String | 出错的子过程名称。 |
| ErrorInfo | 可选 | String | 错误信息。用于自定义错误说明，缺省时使用系统Err的错误信息。 |
| FileNumber | 可选 | Integer | 文件号。使用一个持久的文件号，可以减少读写连接。缺省时会使用新的文件号。 |
| LogFile | 可选 | String | 日志文件路径名。用于自定义日志存放位置。缺省情况下错误日志保存于当前目录的Error Log子目录中。 |
返回值
无
说明
默认情况下错误日志会每天生成一份错误日志文件，其中包含了当天所有发生过的异常错误。用于辅助开发维护人员分析问题。
示例
Private Sub Form_Load()
On Error GoTo ErrorHandler
'加载事件代码略
ExitHere:
Exit Sub
ErrorHandler:
PutErrLog Me.Name & ": Form_Load()" '出错时记录错误日志
Resume ExitHere
End Sub