a = Str(Date)    ' 产生当前日期字符串
   b = "bak"        ' 产生备份标识
   c = "C:\Program Files\Bojing\" & a & b & ".mdb"

   ' 产生备份文件名

   FileCopy "C:\Program Files\Bojing\Bojing.mdb", c
End Function