Alexandre ,
O Script abaixo lista os arquivos com uma determinada data ou mais antigo ...
Faça algumas modificação para poder usar na sua compactação.
dim numeroCont,numeroTamanho,nomeComputador,textoNew
nomeComputador = "."
numeroCont = 0
numeroTamanho = 0
Const ForAppending = 8
set objetoFSO = CreateObject("Scripting.FileSystemObject")
systime = Now()
textoNew = "check.txt"
set objetoSF = objetoFSO.OpenTextFile (textoNew, ForAppending, True)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & nomeComputador & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile where Drive ='e:' and lastmodified<'20070101'")
for each objFile in colFiles
Set objetoSF2 = objetoFSO.GetFile (objFile.name)
numeroCont = numeroCont +1
numeroTamanho = numeroTamanho + cdbl(round(objfile.filesize/1024))
ArquivoInfo = "Arquivo: " & objfile.name & vbCrLf & "Tamanho :" & cdbl(round(objfile.filesize/1024)) & "Kb" & vbCrLf & "Date last modified:" & objetoSF2.DateLastModified & vbCrLf
objetoSf.writeline ArquivoInfo
Next
objetoSF.writeline ":: Imprime totais ::"
objetoSF.writeline "Arquivos: " & numeroCont
objetoSF.writeline "Tamanho: " & numeroTamanho & "Kb"
objetoSF.writeline ":: Terminou ::"
objetoSF.close
O script está funcionando corretamente agora.
Não esqueça de alterar a linha :
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile where Drive ='e:' and lastmodified<'20070101'")
Espero ter ajudado.
Não deixe de classificar a ou as mensagens como "respondido”, caso tenha ajudado.
Fazendo isso, você estará ajudando outros usuários do Fórum a identificar qual ou quais foram as soluções aplicadas na correção do problema.
Luiz Espínola
MCTS - Windows 2008 Active Directory
MCTS - Windows 2008 Applications Infrastructure
MCTS - Windows 2008 Network Infrastructure
MCSE +Security, MCT, MCDBA, Comptia Security+
IBM CSex, ITIL Foundation, Novell CNA, SCSA Solaris 9, Citrix CCA
Script para compactação diária
fficial&hs=5Q4&q=+site:viniciuscanto.blogspot.com+vinicius+canto+powershell+arquivos+antigos