由于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 FileSystemObject
Dim Fld As Folder
Dim Fil As File
If 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 Fil
End If
Set Fil = Nothing
Set Fld = Nothing
Set FSO = Nothing
End Function
参考至：老汉（Office中国）
