WinError.bas

   1 Attribute VB_Name = "WinError"\r
   2 Option Explicit\r
   3 \r
   4 ' GetLastError and the constants for the values returned by it\r
   5 ' (only the ones known to be used by Storm or Lmpqapi are included)\r
   6 \r
   7 Declare Function GetLastError Lib "Kernel32" () As Long\r
   8 \r
   9 Public Const ERROR_SUCCESS           As Long = 0\r
  10 Public Const NO_ERROR                As Long = 0\r
  11 Public Const ERROR_FILE_NOT_FOUND    As Long = 2\r
  12 Public Const ERROR_OUTOFMEMORY       As Long = 14\r
  13 Public Const ERROR_INVALID_PARAMETER As Long = 87\r
  14 Public Const ERROR_DISK_FULL         As Long = 112\r
  15 Public Const ERROR_ALREADY_EXISTS    As Long = 183\r
  16 Public Const ERROR_FILE_INVALID      As Long = 1006\r
  17 Public Const ERROR_UNKNOWN_PROPERTY  As Long = 1608\r
  18 \r