Private Sub cmdBackupRegistrationFile_Click()
10 On Error GoTo cmdBackupRegistrationFile
Dim intRet As Integer
20 intRet = MsgBox("You are about to backup your registration file for" & vbNewLine & _
"Braille Quick Reference Guide (Version: " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNewLine & _
"Please click Yes to complete backup or click No to cancel the backup." & vbNewLine & vbNewLine & _
"Make sure that you have a floppy disk in your floppy disk drive before you continue.", vbYesNo + vbQuestion, "Backup Registration Information?")
30 If intRet = vbYes Then
40 FileCopy (App.Path & "\licence.lic"), "A:\licence.lic"
50 MsgBox "File copied to your floppy disk successfully!", vbInformation, "File Copied Successfully!!"
60 Else
'do nothing
70 End If
80 [hl]If Err.Number = 76 Then
90 MsgBox "You do not have a floppy disk in your" & vbNewLine & _
"floppy disk drive!", vbExclamation, "Floppy disk not found."
100 End If[/hl]
110 Exit Sub
cmdBackupRegistrationFile:
120 WriteToErrorLog "BRG"
End Sub