(no subject)
Sep. 24th, 2011 07:22 am![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Товарищи, у меня есть вот такой вот, например, обработчик ошибок:
Какие значения мне нужно присваивать этой ф-ии, вместо строковых значений, чтобы я мог потом красиво проверять как то так: If ErrorHandler Then ? Потому что сейчас приходится делать как-то так If ErrorHandler = "Quit" Then. 1, 0, TRUE, FALSE в различных комбинациях пробовал. Почему-то не работает. ЧЯДНТ?
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 в различных комбинациях пробовал. Почему-то не работает. ЧЯДНТ?