• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile dosya silme

Katılım
24 Kasım 2010
Mesajlar
29
Excel Vers. ve Dili
2010
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.
 
önce bir deneme klasörü oluşturup dosyaları buraya kopyaayarak kodu test edin.


Kod:
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
 
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.

Kod:
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
 
Denedim, uyguladım çalışıyor teşekkürler.

İyi günler.
 
Geri
Üst