2011-09-24

exchange12rocks: (Default)
2011-09-24 07:22 am

(no subject)

Товарищи, у меня есть вот такой вот, например, обработчик ошибок:
Function ErrorHandler (strName, OK, Fail, Way, Force)
	strErrNum = Err.Number
	strErrDesc = Err.Description
	Err.Clear
	If strErrNum Then
		Select Case Way
			Case "Display"
				WScript.Echo strName & strSplitter & Fail
				WScript.Quit
			Case "Log"
				WriteLog strName & strSplitter & Fail & strSplitter & strErrNum & strSplitter & strErrDesc
				ErrorHandler = "Quit"
		End Select
	Else
		If Force Then
			strErrNum = "OK"
			Select Case Way
				Case "Display"
					WScript.Echo strName & strSplitter & OK
					ErrorHandler = "Quit"
				Case "Log"
					WriteLog strName & strSplitter & OK & strSplitter & strErrNum
					ErrorHandler = "Quit"
			End Select
		End If
	End If
End Function


Какие значения мне нужно присваивать этой ф-ии, вместо строковых значений, чтобы я мог потом красиво проверять как то так: If ErrorHandler Then ? Потому что сейчас приходится делать как-то так If ErrorHandler = "Quit" Then. 1, 0, TRUE, FALSE в различных комбинациях пробовал. Почему-то не работает. ЧЯДНТ?