VBScript para limpeza de Arquivos antigos em pastas e subpastas

Olá Pessoal !

Estou postando aqui um vbscript do qual efetua uma limpeza na pasta da qual você especificar, mantendo somente os dias que você quiser.

Dê uma olhada::

‘*******************************************************************************************************************

‘* Script: DeleteOldFiles_Folder_SubFolder.vbs *

‘* Criado: 10/02/2011 *

‘* Autor: Ulisses Poveda do Nascimento *

‘* Blog: https://unascimento.wordpress.com *

‘* Descrição: Limpeza da Transfer, basta determinar caminho (variavel “A”)e quantidade de dias (variavel “B”). *

‘* Instalar: Copiar este script para uma pasta em determinado Servidor e no mesmo criar uma task no Servidor e *

‘* configurar para executar este script e agendar conforme necessidade. *

‘*******************************************************************************************************************

‘Configura variáveis

‘Variavel “A”

Transfer = “c:caminho completo da pasta” ‘caminho fisico da Transfer no Servidor

‘Configurando objetos e erros.

On Error Resume Next

Dim fso

Dim objFolder

Dim objFile

Dim objSubfolder

Set fso = CreateObject(“Scripting.FileSystemObject”)

Set objFolder = fso.GetFolder(Transfer)

‘Variavel “B”

DataAntiga = DateAdd(“d”, -14, Date)

DeleteOldFiles Transfer, DataAntiga

Function DeleteOldFiles(folderName, BeforeDate)

Dim folder, file, fileCollection, folderCollection, subFolder

Set folder = fso.GetFolder(folderName)

Set fileCollection = folder.Files

‘Deleta todos arquivos não acessados a quantidade de dias especificado anteriormente.

For Each file In fileCollection

If file.DateLastModified < BeforeDate Then

fso.DeleteFile file.Path

End If

Next

‘Deleta arquivos em subfolder com condições aqui especificada

Set folderCollection = folder.SubFolders

For Each subFolder In folderCollection

DeleteOldFiles subFolder.Path, BeforeDate

Next

End Function

No Script acima basta especificar a pasta e na ‘Variavel “B” colocar a quantidade de dias que deseja manter o arquivo na pasta.

Outra função que pode ser adicionada, seria a limpeza de pastas vazias, para isso utilize com a função abaixo:

‘Função Delete pastas vazias

Function DeleteEmptyFolders(foldername)

For Each Folder In fso.GetFolder(foldername).SubFolders

DeleteEmptyFolders(Folder.Path)

If Folder.Files.Count = 0 and Folder.SubFolders.Count = 0 Then

fso.DeleteFolder(Folder.Path)

End If

Next

End Function

No próximo post, vou publicar algumas coisas de shell, do qual acho interessante o conhecimento e aplicação.

Sobre Ulisses Poveda do Nascimento
Sou um rapaz comum com potencial, dedicado, atencioso e acima de tudo com respeito ao próximo. O Resto são qualidades que aprendi com a vida, com esforço e ainda estou em pleno desenvolvimento profissional e pessoal. ** Nunca paramos de Estudar e sempre em busca do Crescimento Pessoal e Profissional. **

One Response to VBScript para limpeza de Arquivos antigos em pastas e subpastas

  1. Rem disse:

    Muito bom! Parabéns

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: