'Listing 34.2  34LIST02.TXT -- Procedura obsugi bdw zwizanych z dyskietk

Function Error_Checker()
  Const ErrDiskNotReady = 71
  Const ErrDiskFull = 61
  Const ErrFileNotFound = 53
  
  Select Case Err.Number 
    Case ErrFileNotFound
      If MsgBox ("Nie znaleziono pliku.", vbretryCancel + vbCritical, App.Title) = vbRetry Then
        Error_Checker = True
      Else
        Error_Checker = False
      End If

    Case ErrDiskFull
      If MsgBox ("Brak miejsca na dyskietce - w inn.", vbretryCancel+vbCritical, App.Title) = vbRetry Then
        Error_Checker = True
      Else
        Error_Checker = False
      End If

    Case ErrDiskNotReady
      If MsgBox ("Dysk nie gotowy!", vbretryCancel+vbCritical, App.Title) = vbRetry Then
        Error_Checker = True
      Else
        Error_Checker = False
      End If

    Case Else
      MsgBox "Nietypowy bd nr " & Err.Number & " podczas kopiowania pliku", vbCritical, App.Title
            Error_Checker = False
  End Select 
End Function

