Soru Klasör İçindeki PDF dosyalarını Silme

[okan32]

Excel dosyamın bulunduğu klasörde yaklaşık 150 kadar PDF uzantılı dosyalar mevcut bir buton ile klasör içindeki tüm PDF uzantılı dosyalarımı silmek istiyorum.

 

[EmrExcel16]

Deneyiniz..

Sub Pdf_Dosyalari_Sil()
    Dim Dosya
    Dosya = Dir(CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path) & Application.PathSeparator & "*.pdf*", vbDirectory)
    Do While Dosya <> ""
        Kill ThisWorkbook.Path & Application.PathSeparator & Dosya
        Dosya = Dir
     Loop
End Sub

 

[okan32]

Çok Teşekkür ederim EmrExcel16 bey süpersiniz...

 

[EmrExcel16]

Çok Teşekkür ederim EmrExcel16 bey süpersiniz...

Rica ederim , iyi çalışmalar.