Bilgisayarınızdaki istediğiniz uzantılı dosyaları tek dokunuşla silin.

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.

Yorum yapın

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.