Backup Funktion

[Rally2000]

I’m trying to do a simple backup to a Floppy but I don’t know how to code it to where it loops until it has successfully written my file!
I would appreciate it very much if someone could show me!
Thanks!!!
Here is what I have!

Dim result As MsgBoxResult
        result = MessageBox.Show("Please Insert a Floppy Disk into Drive A:\", "Insert Floppy", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
 
        If result = MsgBoxResult.OK Then
            Try
                System.IO.File.Delete("A:\MyFile")
                System.IO.File.Copy("C:\Program Files\My Program\My File", "A:\My File")
            Catch ex As Exception
                MessageBox.Show(ex.Message, " An Error has Occurred! ")
            End Try
 
        ElseIf result = MsgBoxResult.Cancel Then
 
            Exit Sub
 
        End If