Apagar arquivos antigos de uma determinada pasta com + 15 dias

' Apagar arquivos antigos de uma determinada pasta

'//////////////////////////////INICIO////////////////////////////////////////////
'Script para executar o purger e limpar arquivos em locais especificos
'Autor: Cristiano – – cristiano.crishpg@gmail.com
' Versão 1.3
'Data 30/10/2013
'Você vai precisar de fazer o download do purger (ftp://ftp.sac.sk/pub/sac/utilfile/purger.zip )
'Copie o purger para uma pasta, sysvol ou netlogon, ou para uma pasta compartilhada da rede
'Existe uma copia do purger no meu email do Gmail
'Insira o caminho onde está o purger, usando caminho UNC
strPath = "C:\temp\"

'Criação do objetos
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
'set objEnvironment = WshShell.Environment("user")
'strTMPVar = objEnvironment("ANEXO SENIOR")

strUserName = objNetwork.UserName
'strComputerName = objNetwork.ComputerName

strComputer = "."
'wscript.echo strTMPVar

'Deleta arquivos na pasta temp do peril do usuário
'Está configurado para apagar arquivos na pasta temp do usuário do windows Vista, caso seja outra pasta altere o caminho.
'A variavel strUserName faz referencia ao nome de usuário da rede.
'subDelFiles ("C:\Users\"& strUserName &"\Configurações locais\Temp")
subDelFiles ("C:\temp\ANEXO SENIOR\")
'sub procedure executa a limpeza das pasta temp apagando arquivos que estão a mais de 15 dias no local
Sub subDelFiles(strDest)
If objFSO.FolderExists(strDest) Then
WshShell.run "CMD.EXE /C attrib -r -a -s -h "& strDest &"\*.* /s /d"
'aqui é o comando onde precisa clocar a quantidade de dias de vida do arquivo
WshShell.run strPath & "\purger.exe -rde 15 "& strDest &"\*.*"
WshShell.run "CMD.EXE /C echo "& now &"> "& strDest &"\DELETAR.txt"
'Wscript.echo "Entrou no IF e chegou ao fim"
Else
'Wscript.echo "Entrou no Else! O if não foi verdadeiro"
End If
End Sub

Wscript.Quit
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\FIM\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\