'Listing 34.1  34LIST01.TXT -- Obsuga bdw w procedurze BackitUp()

Sub BackitUp()
On Error Goto ErrHandle
FileCopy "C:\CHKBOOK.MDB", "A:\CHKBOOK.MDB"
Exit Sub

Errhandle:
  Select Case Err.Number      ' numer bdu
     Case 61    ' brak miejsca na dysku
       MsgBox "Brak miejsca na dyskietce - w inn", vbCritical, App.Title
       Resume 
     Case 71    ' dysk nie gotowy
       MsgBox "W dyskietk do napdu A:", vbCritical, App.Title
       Resume 
     Case Else          
        MsgBox "Nietypowy bd nr " & Err.Number & " podczas kopiowania pliku", vbCritical, App.Title
        Resume
  End Select
End Sub
