文章

vbs&error

发表于
作者
1 分钟阅读
vbs&error

跳过代码块

跳过中间的代码块继续执行

1
2
3

On Error Resume Next
some code
On Error GoTo 0

输出错误信息

输出详情错误信息Err.Description

1
2
3
4

If Err.Number <> 0 Then
            ' 输出错误信息
  WScript.Echo "创建文件时出错: " & Err.Description
End If

代码

1
2
3
4
5
6
7
8
9
10
11

 If Not fso.FileExists(path) Then
        ' 输出调试信息，准备创建文件
        WScript.Echo "准备创建文件: " & path
        On Error Resume Next
        fso.CreateFile path
        If Err.Number <> 0 Then
            ' 输出错误信息
            WScript.Echo "创建文件时出错: " & Err.Description
        End If
        On Error GoTo 0
  End If
VBScript
VBScript
本文由作者按照 CC BY 4.0 进行授权