[AccessD] Automatic backup

[Bill Benson]

What is wrong with

Set FSO =CreateObject ("Scripting.FilesystemObject)
On Error Resume Next
Kill strPathtoBackupFile
On Error Goto 0
FSO.GetFile (currentDb.Name).Copy strPathtoBackupFile