Soru AnaDosya Hariç Dosya Silme

[bulentkars]

Merhaba,
Aşağıdaki kod ile klasör altındaki değiştirme tarihi bufunden eski olan dosyaları siliyorum, Ben ANADOSYA.XLSM sayfası hariç bu işlemi yapmak istiyorum yardımcı olabilirseniz sevinirim. Teşekkürler

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

 

[Necdet]

Merhaba,

    While Dosya <> ""
        If Not Dosya = "ANADOSYA.xlsm" Then
            If FileDateTime(Yol & Dosya) < Date Then
                VBA.CreateObject("Scripting.FileSystemObject").DeleteFile Yol & Dosya
                Say = Say + 1
            End If
        End If

 

[bulentkars]

Necdet Bey,

Çok Teşekkür ederim. Elinize Sağlık