Gabriel,
Poderia adpatar o script abaixo para ter a opção de exclusao de dias.
Exemplo.
Quero deletar tudo dentro das pastas que contenha o nome CONTENCAO a mais de 5 dias.
-----------------------------------------------
On Error Resume Next
Dim strPastaRaiz, strArquivos, objPastaRaiz, objSubPastas
strPastaRaiz = "D:\TEMP\BACKUP"
strArquivos = "\*CONTENCAO*.RAR"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPastaRaiz & strArquivos), True
Set objPastaRaiz = objFSO.GetFolder(strPastaRaiz)
Set objSubPastas = objPastaRaiz.SubFolders
For Each SubPasta In objSubPastas
objFSO.DeleteFile(SubPasta.Path & strArquivos), True
Next
-----------------------------------------------
O seus Scritp esta funcionando, so falta excluir o que esta mais de 5 dias nas pastas.
Dentro da estrutura de Pasta, tenho varias pastas com estes arquivos que precisam ser excluidos, isto ja esta correto.
Ja possuo um outro script que faz isto, porem nao sei unir os dois.
Este abaixo exclui tudo em uma pasta com mais de XX dias.
----------------------------------------
strPasta="H:\HSC\BACKUPS\SRVHSC01\DBS"
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
if (dateDiff("d", file.datecreated, now) >30) then
File.delete
end if
next
if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then
Folder.delete true
end if
end sub
--------------------
Aguardo retorno
