none
Criar .bat para apagar arquivos .pdf com mais de 2 dias em uma pasta pública na rede RRS feed

  • Pergunta

  • Tenho uma pasta na rede onde todos usuários criam arquivos pdf através de uma impressora instalada , gostaria de criar uma bat para apagar esses arquivos que tenham sido criados a mais de 2 dias atrás do dia atual , porém não entendo muito para criar esse arquivo consegui um que apaga todos os arquivos em uma pasta mas infelizmente esse não atende minha necessidade , se alguém puder me ajudar fico grato!

    Bruno
    quarta-feira, 1 de julho de 2009 20:23

Respostas

  • Olá,

    Segue o script abaixo:

    On error resume next
    'nome da pasta
    Path = "C:\teste"

    'quantidade de dias
    strData = 2

    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = ObjFSO.GetFolder(Path)
    Set MyFiles = Folder.files   

    If Not ObjFSO.FolderExists(Path) Then
       wscript.echo "Pasta invalida"
       WScript.Quit
    End If

    IF MyFiles.Count <> 0 Then
     For Each MyFiles in Folder.Files
       if DateDiff("d",myfiles.DateLastModified,now) > strData Then
         MyFiles.Delete
       End if
     Next
    end if


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Bruno_Renan quinta-feira, 2 de julho de 2009 16:18
    quarta-feira, 1 de julho de 2009 20:39

Todas as Respostas

  • Olá,

    Segue o script abaixo:

    On error resume next
    'nome da pasta
    Path = "C:\teste"

    'quantidade de dias
    strData = 2

    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = ObjFSO.GetFolder(Path)
    Set MyFiles = Folder.files   

    If Not ObjFSO.FolderExists(Path) Then
       wscript.echo "Pasta invalida"
       WScript.Quit
    End If

    IF MyFiles.Count <> 0 Then
     For Each MyFiles in Folder.Files
       if DateDiff("d",myfiles.DateLastModified,now) > strData Then
         MyFiles.Delete
       End if
     Next
    end if


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Bruno_Renan quinta-feira, 2 de julho de 2009 16:18
    quarta-feira, 1 de julho de 2009 20:39
  • Obrigado , funcionou extamente como eu precisava!!!

    Abraços
    quinta-feira, 2 de julho de 2009 16:19
  • Ola, jesiel

     

    acho q vc pode me ajudar.

    preciso criar um bat para apagar uma pasta de rede ...ex. r:\correio\Owerlock.lok

    como seria ?

     

    quinta-feira, 18 de novembro de 2010 19:52
  • Onde compilo esse codigo?
    quinta-feira, 7 de janeiro de 2016 10:10