Scprit VBS Apagar arquivo por extensão

Segue script em VBS que apaga arquivos pela extensão exemplo *.mp3, *.avi, 

strPasta="D:\temp" (Coloca o caminho ele vai verificar a raiz e subpastas)

set FSo = CreateObject("Scripting.FileSystemObject")

Apagar_Arquivos(strPasta)

Sub Apagar_Arquivos(Pasta)

set folder = FSO.getFolder (Pasta)

if folder.Subfolders.count > 0 then

  for each SubFolder in folder.Subfolders

   Apagar_Arquivos SubFolder

  next

end if

for each file in folder.files

set objFile = FSO.GetFile(file)

if FSO.GetExtensionName(objFile) = "wav" or FSO.GetExtensionName(objFile) = "mp3" then    (Só colocar aqui a extesão do arquivo que vc deseja deletar)

    File.delete

end if

next

end sub