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