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