- Mar 17, 2004
- Office Version
I'm trying to make it so that a backup copy of my file is written to floppy when the file is saved (but not with SaveAs). So far, I have the following code, which if the floppy is in the drive works fine, and doesn't error out if the disk is not in the drive. But it doesn't make sure that a backup copy actually got made. How would I check to see if the disk is in the drive and loop somehow until it was so that the file got saved to floppy?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) On Error Resume Next Application.DisplayAlerts = False If Not (SaveAsUI) Then MsgBox "Please Insert Floppy Disk in Drive A:" ThisWorkbook.SaveCopyAs "A:\" & ThisWorkbook.Name End If Application.DisplayAlerts = True End Sub