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

todaynew

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

tmtony

收藏!

lovehere

收藏了，学习一下

lovehere

怎么用呢？比如我要删除：昨天以前备份的D:\数据库文件\数据库备份_201008060852.mdb等备份文件。

todaynew

怎么用呢？比如我要删除：昨天以前备份的D:\数据库文件\数据库备份_201008060852.mdb等备份文件。
lovehere 发表于 2010-8-6 09:53

DelFiles "D:\数据库文件",DateAdd("d", -2, date()),"mdb"

不过你需要慎用，因为这个函数是以创建时间为判断基础的，也许会把你文件夹中有用的mdb文件删除了。你可以在函数中加一个排除判断，把不能删除的文件名列到这个判断中。

lovehere

哦，多谢指点。看来还是需要深入研究

xuwenning

收藏了

82077802

收藏了，学习一下

yanwei82123300

哦，多谢指点。看来还是需要深入研究

ha0148

版主!谢谢您的指点,但我还不太懂,比如:
在D盘YSGL\BACKUP\目录下有5个扩展名为.JB文件,
文件名为:20100502.JB,20100619.JB,20100809.JB,20100810.JB,20100811.JB
我知道用VBA语句来删除BACKUP目录下的所有文件.
Dim YY
YY = "D:\ysgl\BACKUP\*.*"
Kill YY
也知道用VBA语句删除BACKUP目录下指定备份日期的文件.
DIM YY,ZZ,XX
YY = "D:\ysgl\BACKUP\"
ZZ=FORMAT (DATE,"YYYY-MM-DD")-3 & ".JB"
XX=YY & ZZ
KILL XX   '删除系统日期前三天的文件.
请问:如果我想删除BACKUP目录下,系统三天前的所有*.JB文件,语句怎样写?望指教,谢谢!