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,