由于Access的不稳定问题，有时莫名奇妙出现错误。甚至有时由于操作不当导致数据库损坏，所以我们需要经常数据库备份

但是如果每天都备份的话会占用大量存储空间。所以按一定的时间销毁备份是有必要的。

如果每次退出ACCESS时备份数据库数据到一个文件夹内,备份文件名是:"xx" & FORMAT(DATE,"YYYY-MM-DD") & ".BAK",如何不手动删除以前的备份文件,在退出ACCESS时,自动删除一星期前备份的文件呢？可参考下面源码

详细源码：

Public Function DelFiles(FldPath As String, Mydate As Date, str As String)'引用：Microsoft Scripting Runtime'功能：删除备份文件'参数：FldPath--文件夹地址； Mydate--删除文件的创建日期范围； str--备份文件的扩展名'示例：DelFiles CurrentProject.Path, DateAdd("d", -1, Date), "bak"Dim FSO As New FileSystemObjectDim Fld As FolderDim Fil As FileIf FSO.FolderExists(FldPath) = True Then    Set Fld = FSO.GetFolder(FldPath)    For Each Fil In Fld.Files        If Mid(Fil.Name, InStrRev(Fil.Name, ".") + 1) = str Then            If Format(Fil.DateLastModified, "yyyy/mm/dd") <= Format(Mydate, "yyyy/mm/dd") Then                FSO.DeleteFile Fil.Path            End If        End If    Next FilEnd IfSet Fil = NothingSet Fld = NothingSet FSO = NothingEnd Function

参考至：老汉（Office中国）