create backup of database

[Navarone]

I have a script in my program that makes a back up of the existing db.

'make a back up of the existing db and rename it.
    If Dir("C:\WestfieldInsurance\old_Westfield.mdb", vbNormal) = "" Then
       fso.CopyFile App.Path & "\" & "Westfield.mdb", "C:\WestfieldInsurance\old_Westfield.mdb", True
    Else
       'MsgBox ("file exist")
    End If

I want to change this script and was thinking of a way to add a date and time to the db name so if I need to restore a previous db from certian date or time, I could. I hope that makes sense.