Merhaba arkadaşlar,
Form üzerinden belirlenen bir klasördeki son 7 günlük dosyaları tutmak istiyorum, eskilerini silmek istiyorum,
7 günü geçen dosyaları nasıl silebilirim?

klasörü siz mi seçeceksiniz yoksa sabit mi?
silinecek dosyaların belli bir özelliği var mı?
kodların çalışacağı dosya ile silinecek olanlar aynı klasörde mi?

aşağıdaki kod işinize yarayabilir
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

sn halil üstadım, teşekür ederim,
eline sağlık

Rica ederim
İyi çalışmalar)

halil üstadım, klasör içindeki tüm dosyalarda geziyor, ama silme işlemi yapmıyor,
aslında çok eski tarihli dosyalar da vardı, silmedi,

fakat
' 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

bu kod sildi, teşekkürler,