VBScript 오류 핸들링

VBScript에서 오류 핸들링을 하기 위해서는 On Error Resume Next를 선언하고 Err 개채를 사용하면 된다.
VisualBasic에서는 On Error Goto xxx 를 사용할 수 있지만 VBScript나 ASP에서는 사용할 수 없다.
VBScript와 ASP에서는 On Error Resume Next 또는 On Error Goto 0 만을 사용할 수 있다.

오류가 발생 했을때 Err 개체를 참조 하여 오류 번호와 상세 내용을 알수 있다.
오류 처리를 하는 간단한 예제 코드를 보도록 하자

Sub errorTest

	On Error Resume Next

	Err.Raise 6	' 오버플로 오류를 발생 시킨다.
	MsgBox "오류 번호 : " & CStr(Err.Number) & ", "오류 내용 : " & Err.Description
	Err.Clear	' 오류를 지운다.

End Sub

위와 같이 On Error Resume Next를 선언하면 오류가 발생 하더라도 오류를 무시하고 실행을 진행 한다.


다음은 파일 처리를 하는 과정에서 오류 발생시 오류 처리 코드 이다.

Sub writeToTextFile

	On Error Resume Next

	Dim fso, txtFile
	Set fso = CreateObject("Scripting.FileSystemObject")

	Set txtFile = fso.OpenTextFile(strTextFile, ForWriting, True)

	' strTextFile 이 존재 하지 않을 경우 발생하는 오류에 대한 처리
	If Err.Number <> 0 Then
		MsgBox Err.Description
		Err.Clear
	Else
		txtFile.Write strText
		txtFile.Close
	End If

End Sub