Makro ile dosya silme

[arslandede]

Merhabalar,

Excel üzerinden bir dosyadan 10 gün önce oluşturulmuş bütün dosyaların silinmesini istiyorum.

Yardımlarınızı rica ederim.

Teşekkürler.

 

[mancubus]

önce bir deneme klasörü oluşturup dosyaları buraya kopyaayarak kodu test edin.

Sub xlTR_t165284_olusturma_trh_gore_dosya_sil()
    
    Dim objDosya As Object
    Dim strYol As String
    Dim lngGun As Long
    
    strYol = "C:\SilinecekDosyalarKlasörününAdı"
    lngGun = 10
    
    With CreateObject("Scripting.FileSystemObject")
        For Each objDosya In .GetFolder(strYol).Files
            If DateDiff("d", objDosya.DateCreated, Now) > lngGun Then objDosya.Delete
        Next
    End With
    
End Sub

 

[Haluk]

Merhaba;

Aşağıdaki kod "C:\TestFolder" klasöründeki dosyaları ele alır ve kodun çalıştırıldığı andan 10 günce oluşturulan sadece xlsm, xlsx ve xls dosyalarını bilgisayardan siler.

Kodu çalıştırdıktan sonra geriye dönüşü olmaz, onun için dikkatli kullanın.

Sub Temizlik()
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Set Klasor = DosyaSistemi.GetFolder("C:\TestFolder")
Set Dosyalar = Klasor.Files
For Each Dosya In Dosyalar
    DosyaUzantisi = DosyaSistemi.GetExtensionName(Dosya)
    If DosyaUzantisi = "xlsm" Or DosyaUzantisi = "xlsx" Or DosyaUzantisi = "xls" Then
        If (Now - Dosya.DateCreated) > 10 Then Kill Dosya
    End If
Next
End Sub

 

[arslandede]

Denedim, uyguladım çalışıyor teşekkürler.

İyi günler.