home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fcc110 / fccerr.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  832 b   |  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.