Dim ObjShell, Afile, Thefiles
Set FSo = WScript.CreateObject("Scripting.FileSystemObject")
set Afolder=FSO.GetFolder("C:\Windows\Temp")
Set TheFiles = Afolder.Files

On Error Resume Next

For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "TMP" then 
AFile.Delete

End if 
Next