kullanırken dikkatli olun bildiğim kadarıyla silinenler çöp kutusuna gitmiyor
doğrudan tamamen siliniyor
Dim FSO As Object '//FileSystemObject
Dim f As Object '//File Object
' AnaKlsr = CurrentProject.Path
With Application.FileDialog(4)
.Title = "Klasör Seçiniz"
.InitialFileName = CurrentProject.Path & "\"
If Application.FileDialog(4).Show = -1 Then AnaKlsr = .SelectedItems(1)
End With
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO
If .FolderExists(AnaKlsr) Then
For Each f In .GetFolder(AnaKlsr).Files
If (f.DateCreated <= Date - 7) Then f.Delete
' aşağıdaki kod isee son güncellenme yada oluşturulma tarihine göre 7 günden eski dosyaları siler
' If (f.DateCreated <= Date - 7) Or (f.DateLastModified <= Date - 7) Then f.Delete
Next f
End If
End With