[Script] Limpar diretório por data e extensão de arquivos

[marceloleaes]

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.

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

Neste exemplo ele remove arquivos anteriores a 15 dias com a extensão .gzip do diretório D:\BACKUPS\MYSQL\