none
Limpar pasta PUBLICA da rede RRS feed

  • Pergunta

  • Olá pessoal,

    Preciso de um script para rodar com o Agendamento de Tarefas do Windows Server 2003 para executar a seguinte tarefa:

    - Terei uma pasta PUBLICA na rede para troca de arquivos pelos usuários, porém, todo dia às 00:00hs devo limpá-la para não crescer e utilizar muito espaço em disco.

    Ex: Caminho da pasta PUBLICA
    H:\GERAL\PUBLICA

    O script deve apagar arquivos de qualquer extenção e pastas e subpasta, ou seja, zerar mesmo tudo que esteja dentro de PUBLICA.

    Valeu a ajuda.

    Abs
    sexta-feira, 22 de janeiro de 2010 19:18

Respostas

  • Olá,

    Verifique o script abaixo:

    Const DeleteReadOnly = TRUE

    'Coloque o caminho da pasta conforme o exemplo
    strPasta = "H:\GERAL\PUBLICA"

    Set FSO = CreateObject("Scripting.FileSystemObject")
    ShowSubfolders FSO.GetFolder(strPasta)

    Sub ShowSubFolders(Folder)
        For Each Subfolder in Folder.SubFolders
            FSO.deletefolder(Subfolder)
        Next
    End Sub

    FSO.DeleteFile(strPasta & "\*.*"), DeleteReadOnly


    Até mais,

    Jesiel

    Obs.: Se útil, classifique.

    • Marcado como Resposta Marco_AM segunda-feira, 25 de janeiro de 2010 12:01
    sexta-feira, 22 de janeiro de 2010 21:36

Todas as Respostas

  • Olá,

    Verifique o script abaixo:

    Const DeleteReadOnly = TRUE

    'Coloque o caminho da pasta conforme o exemplo
    strPasta = "H:\GERAL\PUBLICA"

    Set FSO = CreateObject("Scripting.FileSystemObject")
    ShowSubfolders FSO.GetFolder(strPasta)

    Sub ShowSubFolders(Folder)
        For Each Subfolder in Folder.SubFolders
            FSO.deletefolder(Subfolder)
        Next
    End Sub

    FSO.DeleteFile(strPasta & "\*.*"), DeleteReadOnly


    Até mais,

    Jesiel

    Obs.: Se útil, classifique.

    • Marcado como Resposta Marco_AM segunda-feira, 25 de janeiro de 2010 12:01
    sexta-feira, 22 de janeiro de 2010 21:36
  • Boa tarde.

    No meu caso foi perfeito, mas preciso fazer exceção de um arquivo. Como faço isso nesse script?

    Obrigado.

    At,

    Wilson Cláudio MCTS: Windows Server 2008 Active Directory, Configuring Profissional Cinco Estrelas Windows Server 2008 Active Directory
    domingo, 24 de janeiro de 2010 20:50
  • Jesiel, bom dia.

    Mais uma vez obrigado, deu certo e atende a minha necessidade.

    Abraços,
    Marco A Miranda
    segunda-feira, 25 de janeiro de 2010 12:01
  • Josiel Bom dia,

    Mais uma vez obrigado pelas informações.

    No meu caso esse script atende, mas gostaria de saber se tem como apagar arquivos com mais de 10 dias de idade.

    Isso porque tem um software na empresa que foi mau desenvolvido e com isso fica gerando logs no servidor, e segundo a programadora precisaria apagar os logs de com 10 dias de idade.
    Rafael S. Amaral COBIT 4.1 + ISO 20.000 + ITIL V3 + MCP + MCDST + MCITP + MCTS + MCSA S + MCSE S
    quinta-feira, 28 de janeiro de 2010 10:54
  • Olá,

    Este script apaga as pastas e não arquivos.


    Verifique no histórico do fórum, pois já foi bem discutido este assunto.

    Ou abra uma nova Thread.

    Até mais,

    Jesiel
    quinta-feira, 28 de janeiro de 2010 19:20
  • Olá, Jesiel!

    O script acima funcionou no meu XP, mas quando fui implementar no Win2003, ocorreu o seguinte erro na execução:

    D:\erase_public.vbs(11, 9) Microsoft VBScript runtime error: Permission denied

    Desconfio que preciso fazer algum ajuste no gpedit.msc, mas não sei ao certo qual. Você tem alguma idéia?

    Obrigado!
    terça-feira, 2 de março de 2010 14:42
  • Meu caro solucionou meu problema perfeitamente. Obrigado!
    quinta-feira, 3 de novembro de 2011 18:43
  • Olá,

    Verifique o script abaixo:

    Const DeleteReadOnly = TRUE

    'Coloque o caminho da pasta conforme o exemplo
    strPasta = "H:\GERAL\PUBLICA"

    Set FSO = CreateObject("Scripting.FileSystemObject")
    ShowSubfolders FSO.GetFolder(strPasta)

    Sub ShowSubFolders(Folder)
        For Each Subfolder in Folder.SubFolders
            FSO.deletefolder(Subfolder)
        Next
    End Sub

    FSO.DeleteFile(strPasta & "\*.*"), DeleteReadOnly


    Até mais,

    Jesiel

    Obs.: Se útil, classifique.


    Meu caro Jesiel, utilizei o script acima mas apresentou um erro conforme a imagem abaixo, pode me auxiliar para corrigir o erro?

    Ele apaga alguns arquivos e outros ele nao consegue apresenando essa mensagem.

    Me esqueci de mencionar que o mesmo script funcionou perfeitamente em um windows server 2003 r2 e o problema foi apresentado em um servidor windows server 2008r2.

    Grato desde já.

    segunda-feira, 14 de novembro de 2011 10:50
  • Valeu pelo script funcionou perfeitamente no windows 7 e no windows server 2003.
    quarta-feira, 7 de março de 2012 14:44