::NPTEAM:: Network Programer Team

strDir = "D:\Backup"
strFileExt = "bak"
  
strComputer = "."
  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  
Set FileList = objWMIService.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='" & strDir & "'} Where " & "ResultClass = CIM_DataFile")
  
For Each objFile In FileList
        If objFile.Extension = strFileExt Then
' Wscript.echo "Extension : " & objFile.Extension
            objFile.Delete
        End If
Next