none
Script para excluir arquivos por data RRS feed

  • Pergunta

  • Olá pessoal,

    Queria um script para apagar os arquivos de um share no meu FS chamado TRANSFER, seria para executar diário, MAS que ele apagasse somente os arquivos anteriores a 7 dias, isso contando a data de modificação do arquivo.

    Atualmente uso um .bat que apaga os arquivos, todos sem excessão e coloquei no scheduled task do meu server (Windows 2008 R2)

     

    Valeu pessoal

    quinta-feira, 16 de dezembro de 2010 11:01

Respostas

  • olá!

     

    dir 'C:\Teste' -recurse | where {$_.creationTime -lt (date).addDays(-7) }  | del

    Att.


    MCP, MCDST e MCSA 2003
    sexta-feira, 17 de dezembro de 2010 18:07
  • Boa noite Ivan! Usa o script abaixo, onde esta o c:\teste aponta o diretório da onde você quer excluir.

    Dim fso, f, f1, fc
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("c:\teste")
    Set fc = f.Files
    For Each f1 in fc
    If DateDiff("d", f1.DateLastModified, Now) > 7 Then
    f1.Delete
    End If
    Next


    T+

    Abraço

    • Editado Klebinhu Ramos terça-feira, 21 de dezembro de 2010 00:28 ficou bagunçado o vbs
    • Sugerido como Resposta Klebinhu Ramos sexta-feira, 24 de dezembro de 2010 13:15
    • Marcado como Resposta Fábio JrModerator sábado, 3 de dezembro de 2011 13:08
    terça-feira, 21 de dezembro de 2010 00:26

Todas as Respostas

  • olá!

     

    dir 'C:\Teste' -recurse | where {$_.creationTime -lt (date).addDays(-7) }  | del

    Att.


    MCP, MCDST e MCSA 2003
    sexta-feira, 17 de dezembro de 2010 18:07
  • Boa noite Ivan! Usa o script abaixo, onde esta o c:\teste aponta o diretório da onde você quer excluir.

    Dim fso, f, f1, fc
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("c:\teste")
    Set fc = f.Files
    For Each f1 in fc
    If DateDiff("d", f1.DateLastModified, Now) > 7 Then
    f1.Delete
    End If
    Next


    T+

    Abraço

    • Editado Klebinhu Ramos terça-feira, 21 de dezembro de 2010 00:28 ficou bagunçado o vbs
    • Sugerido como Resposta Klebinhu Ramos sexta-feira, 24 de dezembro de 2010 13:15
    • Marcado como Resposta Fábio JrModerator sábado, 3 de dezembro de 2011 13:08
    terça-feira, 21 de dezembro de 2010 00:26