Access培训-Access开发平台-Access行业开发
Access交流网(免费Access交流)
QQ:18449932
网 址:www.access-cn.com
a = Str(Date) ' 产生当前日期字符串 b = "bak" ' 产生备份标识
' 产生备份文件名 c = "C:\Program Files\Bojing\" & a & b & ".mdb"
FileCopy "C:\Program Files\Bojing\Bojing.mdb", cEnd Function