Slet filer som har endelsen .IQBak .IQBak2 .rep

Denne fil kan slette bak filer men jeg har slet ikke arbejdet med dette før og er helt på arb bund.
Jeg har brug for at jeg kan slette filer som ender på

.IQBak
.IQBak2
.rep

i denne mappe som filen ligger i og alle under mapper.
Filnavnet på file er denne SletAlleBakFiler.vbs
og hvad der ligger i filen er her under.


function ScriptMappe()
  mappe = WScript.ScriptFullName
  ScriptMappe = Left(mappe, InstrRev(mappe, "\") - 1)
end function

Sub SETSletAlleBakFiler(sti)
Dim  fil, f, fs, fc, fl
Set WshShell = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(sti)
Set fc = f.SubFolders

for each fil in f.files
  if LCase(fs.GetExtensionName(fil.path)) = "bak" then   
    fil.Delete true
  end if
next

for each fl in fc
  SETSletAlleBakFiler(fl.path)
next

Set fc =Nothing
Set f = Nothing
Set fs = Nothing
Set WshShell = Nothing

end sub

SETSletAlleBakFiler(ScriptMappe)
WScript.Echo("Færdig!")