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