Belirlenen Uzantıların Topluca Silinmesi(Script)
11 Kasım 2011 Scripts
Aşağıdaki script’e istediğimiz uzantıları ekleyerek, çalıştırılan bilgisayarda belirtilen uzantıların bulunup otomatik olarak silinmesini sağlayabiliriz.Örneğimizde, MP3 ve WMA uzantılı dosyaların silinmesini sağladık.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma'")
For Each objFile in colFiles
objFile.Delete
Next
| Tweet |