strPasta=”D:\Publica”
set FSo = CreateObject(“Scripting.FileSystemObject”)
Apagar_Arquivos(strPasta)Sub Apagar_Arquivos(Pasta)
set folder = FSO.getFolder (Pasta)
‘Verifica se tem subpastas
if folder.Subfolders.count > 0 then
for each SubFolder in folder.Subfolders
Apagar_Arquivos SubFolder
next
end iffor each file in folder.files
File.delete
nextif folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then
Folder.delete true
end ifend sub
* Este script deleta todo conteúdo da pasta específicada e mantém a mesma (pasta raiz).
Gustavo Valle 
Olá bom dia, seu script tem um pequeno erro na linha 20, falta um ‘Then’ antes da quebra de linha para não causar erro.
Ficaria dessa Maneira:
strPasta=”C:\Users\felippe.santana\Desktop\TESTE”
set FSo = CreateObject(“Scripting.FileSystemObject”)
Apagar_Arquivos(strPasta)
Sub Apagar_Arquivos(Pasta)
set folder = FSO.getFolder (Pasta)
‘Verifica se tem subpastas
if folder.Subfolders.count > 0 then
for each SubFolder in folder.Subfolders
Apagar_Arquivos SubFolder
next
end if
for each file in folder.files
File.delete
next
if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.PathstrPasta Then
Folder.delete true
end if
end sub