none
Deletar arquivos de pasta publica. RRS feed

  • Pergunta

  • Boa tarde,

      Tenho uma pasta no servidor (Windows Server 2008 R2 Standard) que é publica, e todos do domínio tem acesso. Porém, mensalmente tenho que deletar os arquivos desta pastas, mantendo apenas umas 6 pastas específicas na pasta pública.

      É necessário a criação de um script para essa ação, ou tem algum meio mais 'amigavel' para essa tarefa? Estou usando o Active Directory para o domínio e tenho Groups Policy Management.

     

         Obrigado.

    sexta-feira, 23 de dezembro de 2011 16:20

Respostas

  • Marcelus,

    Você pode utilizar o ROBOCOPY com as opções /MOVE (Move os arquivos para o destino) e /XD (Exceção de diretórios)

    .VBS

    'Gera data
    dtFormato = year(now) & left(month(now),2) & left(day(now),2)
    
    'Gera linha de comando
    strLinhadeComando = "robocopy c:\PASTA c:\PASTA_" & dtFormato & " /E /MOVE /XD C:\Pasta\EXCEÇÃO1 C:\Pasta\EXCEÇÃO2 C:\Pasta\EXCEÇÃO3 C:\Pasta\EXCEÇÃO4 C:\Pasta\EXCEÇÃO5"
    
    'Executar um progrma externo
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run strLinhadeComando,0
    


    Fábio de Paula Junior
    quinta-feira, 29 de dezembro de 2011 11:32
    Moderador

Todas as Respostas

  • Pra fazer algo, precisamos entender melhor a estrutura das pastas. Mande pra cá e informe quais não podem ser excluidas.
    sexta-feira, 23 de dezembro de 2011 17:54
  • Bom, deixe eu explicar melhor então...

    Tenho uma pasta compartilhada, vamos chama-la de PASTA. Todos da rede tem acesso a ela, e la criam pastas e colocam arquivos. Arquivos que supostamente não seriam importantes, pois é uma pasta publica.

    Uma vez por mês quero que esse batch rode sozinho e recorte todas as pastas la de dentro, com exceção de umas 5 pastas que sempre tem que estar lá. Vamos chamar as exceções de EXCEÇÃO1, EXCEÇÃO2, EXCEÇÃO3, EXCEÇÃO4, EXCEÇÃO5.

    Exemplo: C:\PASTA\EXCEÇÃO1

     

    Então o batch teria que fazer o seguinte:

    * Criar uma pasta com a data do backup

    * Copiar tudo de PASTA, menos as pastas EXCEÇÃO1, EXCEÇÃO2, EXCEÇÃO3, EXCEÇÃO4, EXCEÇÃO5 para a pasta criada com a data do backup.

    * Excluir tudo de PASTA, menos as pastas EXCEÇÃO1, EXCEÇÃO2, EXCEÇÃO3, EXCEÇÃO4, EXCEÇÃO5.

    Ficou mais claro agora? (:

     

    Obrigado.

    quarta-feira, 28 de dezembro de 2011 13:20
  • Marcelus,

    Você pode utilizar o ROBOCOPY com as opções /MOVE (Move os arquivos para o destino) e /XD (Exceção de diretórios)

    .VBS

    'Gera data
    dtFormato = year(now) & left(month(now),2) & left(day(now),2)
    
    'Gera linha de comando
    strLinhadeComando = "robocopy c:\PASTA c:\PASTA_" & dtFormato & " /E /MOVE /XD C:\Pasta\EXCEÇÃO1 C:\Pasta\EXCEÇÃO2 C:\Pasta\EXCEÇÃO3 C:\Pasta\EXCEÇÃO4 C:\Pasta\EXCEÇÃO5"
    
    'Executar um progrma externo
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run strLinhadeComando,0
    


    Fábio de Paula Junior
    quinta-feira, 29 de dezembro de 2011 11:32
    Moderador
  • Fiz as minhas modificações, mas o ROBOCOPY foi muito útil!

    Muito Obrigado!!

    terça-feira, 3 de janeiro de 2012 18:26