Soru Değiştirme Tarihine Göre Dosya Silmek

[bulentkars]

Arkadaşlar Merhaba,

C:\TALIMATLAR\TALIMAT\ Klasörü altında 1 den fazla uzantısı xlsm olan çalışma kitaplarım var, burada yapmak istediğim makro Dosyaların son değiştirme tarihi bugünden küçük ise silmek istiyorum, örneğin 1.xlsm son değişrime tarihi 04.04.2022 ise silecek, 2.xlsm son değiştirma tarihi 05.04.2022 ise işlem ypamayacak. Yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Degistirme_Tarihine_Gore_Dosya_Sil()
    Dim Yol As String, Dosya As String, Say As Long
   
    Yol = "C:\TALIMATLAR\TALIMAT\"
   
    Dosya = Dir(Yol & "*.xlsm")
   
    While Dosya <> ""
        If FileDateTime(Yol & Dosya) < Date Then
            VBA.CreateObject("Scripting.FileSystemObject").DeleteFile Yol & Dosya
            Say = Say + 1
        End If
        Dosya = Dir
    Wend

    If Say > 0 Then
        MsgBox Say & " adet dosya silinmiştir.", vbInformation
    Else
        MsgBox "Silinecek dosya bulunamadı!", vbExclamation
    End If
End Sub

 

[bulentkars]

Korhan Bey,

Çok teşekkür ederim, emeğinize sağlık..