Bazen bilgisayarımıza indirdiğimiz tüm mp3 dosyalarını silmek isteriz, ama birden çok klasörde birden çok dosya var ise hepsini teker teker silmek bazen zahmetli olabilir. Bu ve bunun gibi mücbir sebeplerle bilgisayarımızdaki belli uzantıdaki dosyaların tamamını silmek istersek aşağıdaki script’i kullanabiliriz…
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension ='mp3' OR Extension = 'wma')
For Each objFile in colFiles
objFile.Delete
Next
dosyayı bat dosyası olarak kaydedip çift tıklamanız yeterli olacaktır . Kolay gelsin.
Yukarıdaki script mp3 ve wma uzantılı dosyaları siler. Eğer farklı uzantı tanımlamak veya mevcut halini değiştirmek isterseniz lütfen 5. satırdaki ilgili alanı düzenleyiniz.