object - VBScript Err オブジェクトの複製

Question

以下のコードはVariable is undefined (500)、エコーで error.no を連結しようとするとエラーになります。

'Raise an error to represent an issue with the main code
err.raise 999

dim error
set error = err

'Call another function that could also throw an error
SendMail "To=me","From=me","Subject=Failure in main code"

'Report both errors
wscript.echo "First problem was - Error code:" & error & vbcrlf & "Subsequent problem was - Error code:" & err

err オブジェクトのクローンを作成することは可能ですか?

Answer 1

グローバル Err オブジェクトのプロパティを後で使用するために新しい変数にコピーするには (グローバル Err が新しい大惨事によって変更された後.Clear、または "On Error GoTo 0")、配列を使用する必要があります。

>> On Error Resume Next
>> a = 1 / 0
>> Dim aErr : aErr = Array(Err.Number, Err.Description, Err.Source)
>> On Error GoTo 0
>> WScript.Echo Join(aErr, "-")
>>
11-Division by zero-Microsoft VBScript runtime error

VBScript では空の Err オブジェクトを作成できないためです。