Klasörlerden dosya silme

[vuranoğlu]

İyi akşamlar
Klasör içinde oluşturulmuş 3 adet klasör ve içerisindeki klasörlerde de pdf excel dosyaları var.
Örnek te olduğu gibi ocak şubat mart dosyalarında bulunan yaklaşık 35 dosya var bunların içerğinin
temizlenmesi boşatılması gerekiyor. Dosya içinde bulunan 01 02...son. isimli dosyaların yalnızca
içeriğinin temizlenmesi için nasıl bir değişiklik gerekmektedir?
3https://s6.dosya.tc/server/zson9w/TOPLU_TEMIZLEME.rar.html
Teşekkürler

 

[vuranoğlu]

TOPLU_TEMIZLEME.rar dosyasını indir - download

TOPLU_TEMIZLEME.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit
Dim Dosya As Object, Alt_Klasorler As Object, Say As Long, Onay As Byte, Zaman As Double
 
Sub Klasor_Secimi()
    Say = 0
     
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            Call Dosyalari_Sil(.SelectedItems(1), True)
        End If
    End With

    Onay = MsgBox("Seçeceğiniz klasör ve alt klasörlerindeki tüm dosyalar silinecektir!" & vbCrLf & vbCrLf & _
                  "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo + vbDefaultButton2)
 
    If Onay = vbNo Then Exit Sub
 
    Zaman = Timer
 
    MsgBox Say & " adet dosya silinmiştir." & vbCr & vbCr & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

Sub Dosyalari_Sil(Klasor As String, Alt_Klasorler_Dahilmi As Boolean)
    For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files
        Say = Say + 1
        CreateObject("Scripting.FileSystemObject").DeleteFile Dosya, True
    Next
 
    If Alt_Klasorler_Dahilmi Then
        For Each Alt_Klasorler In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).SubFolders
            Call Dosyalari_Sil(Alt_Klasorler.Path, True)
        Next
    End If
End Sub

 

[vuranoğlu]

Teşekkürler
Elinize emeğinize sağlık.