【access小品】删除备份文件函数

时　间:2010-08-06 06:29:26
作　者:todaynew   ID：10802  城市：武汉
摘　要:删除文件
正　文:

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