Visitantes

Mostrando postagens com marcador VBSCRIPT. Mostrar todas as postagens
Mostrando postagens com marcador VBSCRIPT. Mostrar todas as postagens

Script para excluir arquivos mais antigos que X Dias






Fala pessoal, blz???

Esse é um script bastante útil, ele deixa apenas os arquivos com menos de X Dias em determinadas pastas e subpastas, bastante útil em File Servers que possuem pastas para arquivos Temporários;

Exemplo:

e:\arquivos\TEMP7Dias
e:\arquivos\TEMP15Dias
e:\arquivos\TEMP30Dias

Essa estrutura é muito comum nas empresas possibilitando a criação de um tipo de repositório temporário para troca de arquivos entre usuários ou Departamentos.
Exemplo: O Departamento de compras precisa passar um documento para o Depto de Contabilidade, ao invés de darmos permissões na pasta dos departamentos o que diminuiria a segurança, os usuários colocariam os arquivos desejados na pasta temporária e os usuários do outro departamento pegariam esses arquivos e colocariam em outro local, o correto seria que os usuários movessem o arquivo do Local temporário, mais isso é pedir demais para a maioria dos usuários!!! Então para contornar esse problema e diminuirmos a nossa carga administrativa, criaríamos uma TASK no file Server que rodará esse script todos os dias e deixará na pasta apenas os arquivos mais novos que X dias, dependendo da política da empresa.

'-------------- INICIO DO SCRIPT -----------------------------------
' Script Manager : Marcos Valente
' Criado em : 2010
' Script para apagar arquivos mais antigos que X Dias
' Precisa ser passado as seguintes Informações:
'
' * Pasta Inicial
' * Qt de dias
'
' EX: cscript.exe C:\Scripts\DelOldFiles.vbs e:\arquivos\TEMP7Dias 7
'--------------------------------------------------------------
Set objArgs = WScript.Arguments
FolderName =objArgs(0) 'Argumento da Pasta inicial
Days=objArgs(1) 'Arqumento de dias

set fso = createobject("scripting.filesystemobject")
set folders = fso.getfolder(FolderName)
datetoday = now() 'Data Atual
newdate = dateadd("d", Days*-1, datetoday) 'Data Final
wscript.echo "Data Atual:" & now()
wscript.echo "Deletando arquivos mais antigos que:" & newdate
wscript.echo "________________________________________________"
wscript.echo ""
recurse folders
wscript.echo ""
Sub recurse( byref folders)
set subfolders = folders.subfolders
set files = folders.files
wscript.echo ""
wscript.echo "Deletando arquivos da Pasta:" & folders.path
wscript.echo "_______________________________________________"
for each file in files
if file.datelastmodified < newdate Then
wscript.echo "Deletando..... " & folders.path & "\" & file.name & " Ultima Modificação: " & file.DateLastModified
on error resume next
file.delete
end if

next
for each folder in subfolders
recurse folder
next
set subfolders = nothing
set files = nothing
end sub

'----------------------FIM DO SCRIPT ------------------------------

Espero ter ajudado mais uma vez e precisando estamos ai. Deixem suas duvidas ou se quiser alguma ajuda em alguma solução deixe sua pergunta que tentarei ajudar.

Um grande abraço a todos...

Ajudem a desenvolver o blog, clicando em nossas propagandas... Não custa nada ajudar...