Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
elmarinho

Script para limpar pasta

Mensagem Recomendada

Gostaria de saber como implantar e criar um script deletar todos os arquivos e subpastas da pasta publico do meu servidor Windows 2003 server todos os domingos as 20:00, pois já vi em algumas empresas funcionar corretamente.

Alguém pode me ajudar? 


NÃO SOU DONO DO MUNDO, MAS SOU FILHO DO DONO.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá

 

 

1 - Copie o script abaixo no bloco de notas, salve como DeletarArqs.vbs.

==============================

On Error Resume Next

If wscript.arguments.count <> 1 then

    wscript.echo "Sintaxe inválida!" & vbcrlf & vbcrlf & "Ex: DeletarArqs.vbs [Pasta a deletar]"

    wscript.quit

Else

 cDeleteReadOnly = True

 vPastaDeletar = wscript.arguments(0)

End If

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFS.GetFolder(vPastaDeletar)

Set colSubFolders = objFolder.Subfolders

objFS.DeleteFile(vPastaDeletar & "\*.*"), cDeleteReadOnly

For Each objSubfolder in colSubFolders

 objSubFolder.Delete

Next

=====================

 

2 - Crie uma tarefa agendada, informe o script DeletarArqs.vbs passando como parâmetro a pasta que deseja limpar (CUIDADO, o conteúdo da pasta será completamente apagado)


Marcos Eduardo de Oliveira
Diretor de Tecnologia
MCP | MCT | MCSA | MCITP | MCTS AD | MCTS Network
MCTS Virtualization | Small Business Specialist
Lead Auditor ISO 27001 | ITIL Foundation | Green IT Citizen

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...