Script para apagar arquivos antigos por tempo data Windows

Script vbs para apagar arquivos antigos por dias no windows.

sDirToAnalize = “C:\bk_banco”

‘— Crimaos um FSO e instanciamos o diretório raiz.
set objFso = CreateObject(“Scripting.FileSystemObject”)
set objFolderRoot = objFso.GetFolder(sDirToAnalize)

‘— Percorremos todos os subdiretórios
For Each objFolder in objFolderRoot.SubFolders

‘— Iniciamos a analise dos subdiretórios
DeleteOldFiles objFolder
Next

‘— Método que deleta os arquivos antigos.
Sub DeleteOldFiles(objCurrentDir)

‘— Forçamos a execução para controlarmos os erros.
On Error Resume Next

‘— Percorremos todos os arquivos do diretório
For Each objFile in objCurrentDir.Files

‘— Limpamos os erros.
Err.Clear

‘— Verificamos se o ultimo acesso do arquivo
‘— é MENOR que (agora menos 30 dias).
If objFile.DateCreated < (Now -30) Then

objFile.Delete True

End If

Next

‘— Percorremos os subdiretórios.
For Each objSubDir in objCurrentDir.SubFolders

‘— Iniciamos a analise dos recursiva dos subdiretórios
DeleteOldFiles objSubDir
Next

End Sub