请教用语句删除几天前的备份文件?

ha0148

每次退出ACCESS时备份数据库数据到一个文件夹内,备份文件名是:"BF" & FORMAT(DATE,"YYYY-MM-DD") & ".BAK",可是随着长时间的备份,备份文件越来越多,只有定期到这个文件夹中手动删除以前备份的文件,现请教高手,用什么样的语句,在退出ACCESS时,能删除3天前备份的文件?请大家赐教,谢谢!

todaynew

以下代码未经测试，你试试看：
Public Function DelFiles(FldPath As String, Mydate As Date, str As String)
'引用：Microsoft Scripting Runtime
'功能：删除备份文件
'参数：FldPath--文件夹地址； Mydate--删除文件的创建日期范围； str--备份文件的扩展名
'示例：DelFiles CurrentProject.Path & "\备份文件夹",2010/8/1,"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 Right(Fil.Name, InStrRev(Fil.Name, ".") + 1) = str Then
            If Fil.DateCreated <= Mydate Then
                FSO.DeleteFile Fil.Path
            End If
        End If
    Next Fil
End If
Set Fil = Nothing
Set Fld = Nothing
Set FSO = Nothing
End Function

ha0148

谢谢指点,我试试看.谢谢!!!

larkinwang

这个问题的讨论真是如火如荼啊

larkinwang

真希望有一个比较成熟的答案给我们初学者学习啊···

larkinwang

这个代码好像不太行哦··