Script para apagar arquivos antigos por tempo data Windows

porDiego Elcain

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

Sobre o Autor

Diego Elcain administrator