Script vbs para apagar pasta

Script abaixo apaga conteúdo com a extensão tmp do diretorio strpasta

strPasta=”C:\Program Files (x86)\Persits Software\”
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) = “tmp” then
File.delete
end if
next
end sub

Deixe uma resposta