Как получить код ошибки из WshShell - VB
Формулировка задачи:
Запускаю из WshShell утилиту sqlcmd
При заведомо неправильной строке strSQLCMD хочу получить код ошибки, но Err.Number возвращает 0.
Как быть?
При заведомо неправильной строке strSQLCMD хочу получить код ошибки, но Err.Number возвращает 0.
Как быть?
Решение задачи: «Как получить код ошибки из WshShell»
textual
Листинг программы
Function D2W(DOS_STRING As String) As String
If Len(DOS_STRING) = 0 Then Exit Function
For i = 1 To Len(DOS_STRING)
s = Asc(Mid(DOS_STRING, i, 1))
If s >= 128 And s <= 175 Then
D2W = D2W & Chr(s + 64)
ElseIf s >= 224 And s <= 239 Then
D2W = D2W & Chr(s + 16)
ElseIf s = 240 Then
D2W = D2W & Chr(168)
ElseIf s = 241 Then
D2W = D2W & Chr(184)
Else
D2W = D2W & Chr(s)
End If
Next
End Function