home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / fcc110 / fccerr.bas < prev    next >
BASIC Source File  |  1993-10-12  |  832b  |  32 lines
  1. 'This function may be used to retrieve an English description
  2. 'of an FCC error code.
  3.  
  4. Function FCC_err (n As Integer) As String
  5.    Select Case n
  6.       Case FCC_ERR_OPEN
  7.         s$ = "Could Not Open File"
  8.       Case FCC_ERR_WRITE
  9.         s$ = "Could Not Write"
  10.       Case FCC_ERR_READ
  11.         s$ = "Could Not Read"
  12.       Case FCC_ERR_CLOSE
  13.         s$ = "Could Not Close"
  14.       Case FCC_ERR_SEEK
  15.         s$ = "Could Not Seek"
  16.       Case FCC_ERR_CACCESS
  17.         s$ = "Could Not Access"
  18.       Case FCC_ERR_VERSION
  19.         s$ = "Unknown Version"
  20.       Case FCC_ERR_NOMEM
  21.         s$ = "Insufficent Memory"
  22.       Case FCC_ERR_PARAM
  23.         s$ = "Bad Parameter"
  24.       Case FCC_ERR_CANCELED
  25.         s$ = "Canceled by Operator"
  26.       Case Else
  27.         s$ = "Unknown"
  28.    End Select
  29.    FCC_err = s$
  30. End Function
  31.  
  32.