[RESOLVED] FileCopy

[BrailleSchool]

Everything seems to be working but the highlighted part isnt. Please advise. Thanks in advance.

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