Функция GetLastError

Declare Function GetLastError Lib "kernel32.dll" () As Long

GetLastError возвращает код ошибки ,который происходит при вызове последней вызываемой функцией.Большинство функций API просто возвращают номер кода ошибки, ничего не сообщая о характере ошибки. Эта функция возвращает универсальный код ошибки,определяя его тип.Обратите внимание,что многие функции устанавливают код ошибки в ноль,если функция сработала успешно,удаляя предыдущий код ошибки. Таким образом,нужно немедленно определять код ошибки сразу же при его возникновении.

Пример

' демонстрация обнаружения ошибки
 неверного определения дескриптора
Dim retval As Long  ' возвращаемое значение функции
Dim errorcode As Long  ' код ошибки

' делаем неправильное обращение к функциии ,используя 
'неверный дескриптор
retval = CloseHandle(-1)  ' нет дескриптора -1!
If retval = 0 Then  '  возвращаемое значение будет равным 0 при возникновении ошибки
  errorcode = GetLastError()  ' находим код ошибки
  If errorcode = 6 Then Debug.Print "ОШИБКА: Неверный дескриптор"   ' ошибка 6 = Неверный дескриптор
End If
Схожие функции CommDlgExtendedError
Категория
Ошибки

В начало.