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