+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek (/konu-belirlenen-bir-klasordeki-dosyalardan-son-7-gun-harici-silmek.html)
Sayfalar:
1
2
Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek - husem - 03/08/2022
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?
RE: Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek - berduş - 03/08/2022
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?
RE: Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek - berduş - 03/08/2022
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 WithRE: Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek - husem - 04/08/2022
sn halil üstadım, teşekür ederim,
eline sağlık
RE: Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek - berduş - 04/08/2022
Rica ederim
İyi çalışmalar)
RE: Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek - husem - 04/08/2022
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,