2012-12-10 10:52:21享利技術網
刪除超過1個月的檔案
Private Sub Form_Load()
Dim mF As String, mD As String
mF = Dir("C:\myfolder\*.*", vbNormal)
Do While mF <> ""
mD = Format(FileDateTime("C:\myfolder" & mF), "yyyy/mm/dd")
If DateDiff("d", mD, Date) > 31 Then '1個月前的檔案
Kill "C:\myfolder" & mF '刪除檔案
End If
mF = Dir()
Loop
Unload Form1
End Sub
上一篇:找出執行最久的查詢