[Script] Limpar diretório por data e extensão de arquivos
Enviado: 11 Jun 2013 22:29
Script em VBS que ao rodar varre o diretório especificado buscando por arquivos com a extensão definida e remove os mesmos se forem mais antigos do que os dias informados no script. Útil para limpeza em pastas de log ou semelhantes. Ajuste conforme necessidade.
Neste exemplo ele remove arquivos anteriores a 15 dias com a extensão .gzip do diretório D:\BACKUPS\MYSQL\
Código: Selecionar todos
Set fso = CreateObject("Scripting.FileSystemObject")
fs = "D:\BACKUPS\MYSQL\"
ShowFiles(fs)
Sub ShowFiles(Fld)
Set k = fso.GetFolder(Fld)
Set s = k.SubFolders
Set kf = k.Files
For Each objFile In kf
If fso.GetExtensionName(objFile) = "gzip" then
If objFile.DateCreated < date - 15 Then
fso.DeleteFile objfile
End If
End if
Next
End Sub