none
VBS para limpar diretorio RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Bom dia Galera.

    Mais uma vez o pentelho aqui vem pedir uma ajuda...
    Tenho uma estrutura de diretório em um cliente, aonde os usuários podem jogar arquivos para todos de qualquer are acessarem, porem o espaço em disco do Server sempre vai ao limite, o que eu gostaria de fazer, usar um vbs que apagasse pastas e arquivos utilizando condição de data por exemplo apague tudo de uma pasta x deixando somente os 2 últimos dias, alguém sabe como fazer isso.

    Abraço.

    quinta-feira, 22 de janeiro de 2009 13:02
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Achei

     

    strPasta="caminho"

    set FSo = CreateObject("Scripting.FileSystemObject")
    Apagar_Arquivos(strPasta)

    Sub Apagar_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)

     if folder.Subfolders.count > 0 then
      for each SubFolder in folder.Subfolders
       Apagar_Arquivos SubFolder
      next
     end if

     for each file in folder.files
      if (dateDiff("d", file.datecreated, now) >2) then
       File.delete
      end if
     next

     if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then
      Folder.delete true
     end if

    end sub

    sábado, 24 de janeiro de 2009 11:53
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Galera.

     

    Alguma Luz ????

     

    Grato.

     

    quinta-feira, 22 de janeiro de 2009 16:33
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Achei

     

    strPasta="caminho"

    set FSo = CreateObject("Scripting.FileSystemObject")
    Apagar_Arquivos(strPasta)

    Sub Apagar_Arquivos(Pasta)
     set folder = FSO.getFolder (Pasta)

     if folder.Subfolders.count > 0 then
      for each SubFolder in folder.Subfolders
       Apagar_Arquivos SubFolder
      next
     end if

     for each file in folder.files
      if (dateDiff("d", file.datecreated, now) >2) then
       File.delete
      end if
     next

     if folder.Subfolders.count = 0 and folder.files.count=0 and Folder.Path<>strPasta then
      Folder.delete true
     end if

    end sub

    sábado, 24 de janeiro de 2009 11:53
    |