Skip to main content

AccessTr.neT


Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek

Belirlenen Bir Klasördeki Dosyalardan Son 7 Gün Harici Silmek

Çözüldü #1
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?
.rar 7gün.rar (Dosya Boyutu: 28,57 KB | İndirme Sayısı: 2)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
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?
Cevapla
#3
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
Cevapla
#4
sn halil üstadım, teşekür ederim,
eline sağlık
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#5
Rica ederim
İyi çalışmalar)
Cevapla
#6
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,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 04/08/2022, 19:31, Düzenleyen: husem.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da