Public Function backup()    Dim a As String    Dim b, c As String    a = Str(Date)    ' 产生当前日期字符串    b = "bak"        ' 产生备份标识    ' 产生备份文件名    c = "C:\Program Files\Bojing\" & a & b & ".mdb"    FileCopy "C:\Program Files\Bojing\Bojing.mdb", c End Function