You said you were looking for a VBScript to do this . . .
You can use the VBScript FileSystemObject to copy files. Put the script in a code module and set a macro to run the script whenever the database is opened . . .
'>>>>>>>>>>BEGIN<<<<<<<<<
Dim fso, backupfilename, backupdir, dbfilename
Set fso = CreateObject("Scripting.FileSystemObject")
'set the name of the database file that needs to be backed up
dbfilename = "c:\access\mydatabase.mdb"
'set the directory to backup tobackupdir = "c:\backup\"
'build the daily backup filename
'example: 20011214.mdb
backupfilename = Year(Now()) & Month(Now()) & Day(Now()) & ".mdb"
'check to see if today's copy has already been made
If fso.FileExists(backupdir & backupfilename) Then
'today's backup already exists -- do nothing
Else
'make a copy of the database
fso.CopyFile dbfilename, backupdir & backupfilename
End If
'>>>>>>>>>>END<<<<<<<<<
Best,
Aaron