Çözüldü Filtreye göre Klasör silmek

[k0081]

Merhaba arkadaşlar;

Öncelikle Herkesin Ramazan Bayramı Mübarek olsun... İyi Bayramlar.

xxx_Audio
asad_Audio
13124_Audio
dfggh_Audio

Şeklinde Klasörler mevcut. Klasör isminde Audio kelimesi olan klasörleri Command buton ile nasıl Silebilirim ?

Yardımcı arkadaşa şimdide Teşekkürler.

 

[metehan8001]

Sub XD_KlasorSil()
klasor = "\Klasor\"
dosyayolu = ThisWorkbook.Path & klasor
Set ds = CreateObject("Scripting.FileSystemObject")
For Each XD In ds.GetFolder(dosyayolu).SubFolders
On Error Resume Next
If XD.Name Like "*Audio*" Then Kill ds.DeleteFolder(XD)
Next
End Sub

 

[k0081]

metehan8001


Hocam çok Teşekkür ederim., Tamamdır... Elinize sağlık.

 

[metehan8001]

Rica ederim iyi çalışmalar.