BUG: FileCopy Does Not Reset Err if Floppy is Write- Protected

MORE INFORMATION

Steps to Reproduce Problem

1. Start a new project in Visual Basic. Form1 is created by default.
2. Place a CommandButton, Command1, on Form1.
3. Place the following code in the Command1_Click event:

      Private Sub Command1_Click()
      Dim source As String
      Dim target As String
   
         On Error GoTo err_handler
   
         source = "c:\test.txt"
   
         Open source For Output As #1
         Write #1, "This is a test."
         Close #1
   
         target = "a:\test.txt"
   
         FileCopy source, target
   
      Exit Sub
      err_handler:
   
         If Err.Number = 70 Then
             MsgBox "Permission denied. Please remove write-protection."
             Resume
         ElseIf Err.Number = 71 Then
             MsgBox "Disk not ready. Please insert a disk."
             Resume
         End If
   
      End Sub
   						

4. Run the project by pressing the F5 key.
5. Insert a formatted disk in the floppy, and then click Command1. Text.txt is copied to the floppy disk.
6. Write-protect the disk and click Command1. An error message appears to remove the write-protection.
7. Remove write-protection and click Command1. Note that the same error message appears.