Apagando arquivos antigos com script VBS

Neste artigo veremos como apagar arquivos antigos com um script vbs

Crie um arquivo de texto e save-o com extensão vbs

1. copie e cole o código no arquivo
2. Altere o 40 da linha if (dateDiff(“d”, file.DateLastModified, now) >40) thenpara os dias desejados.
3. salve o arquivo e execute-o, ou coloque em uma tarefa agendada para executar automaticamente.

set FSo = CreateObject(“Scripting.FileSystemObject”)
set folder = FSO.getFolder (“F:DB BrisaBackup-DBBAK-LOG-OLD”)
for each file in folder.files
if (dateDiff(“d”, file.DateLastModified, now) >40) then
File.delete
end if
next

Espero que seja útil a você assim como foi pra mim

Se você procura um script mais completo com geração de Logs. Olhe este: (LINK CORRIGIDO)
http://www.purainfo.com.br/scripts/vbs-movendo-arquivos-antigos-e-gerando-log/

Até a proxima!