none
VBS para limpar diretorio RRS feed

  • Pergunta

  •  

    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

  •  

    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

  • Galera.

     

    Alguma Luz ????

     

    Grato.

     

    quinta-feira, 22 de janeiro de 2009 16:33
  •  

    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