Dim a, b, c, fs
b = Format(Now, "yyyymmddhhmm")
a = CurrentProject.Path
c = a & "\backup\cmbak" & b & ".mdb"

Set fs = CreateObject("Scripting.FileSystemObject")

fs.copyfile a & "\cm.mdb", a & ".\backup\cmbak" & b & ".mdb"
MsgBox "本系统已备份至" & c