正常保存文件,然后复制一份: http://www.foxtable.com/help/topics/0342.htm
例如: FileSys.CopyFile("C:\TestFiles\test.mdb", "C:\TestFiles\" & Foramt(Date.Today,"yyyyMMdd") & ".mdb",True)