none
Como deletar Arquivos e Pastas 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 um vbs que apagasse pastas e arquivos de um caminho x no servidor, que comandos eu poderia usar para realizar esse processo, ja consigo apagar arquivos porem pasta esta sendo uma grande dificuldade.

     

    Grato.

    sexta-feira, 23 de janeiro de 2009 13:22

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) >5) 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:52