Limpar Pastas ACBrMonitorPlus

[sgeinformatica]

Daniel, bom dia

Gostaria de saber a possibilidade de desenvolver um comando no ACBrMonitorPLUS para limpar o conteudo da pasta C:\ACBrMonitorPLUS\Arqs

Se der certo, nao precisarei mais compartilhar a pasta do monitor.
No meu sistema apaga somente arquivos com mais de 30 dias e fiz mais ou menos assim :

var
  DataArq: TDateTime;
  PastaXml: String;
  A: Integer;
  TS: TStrings;
begin  
  PastaXml := 'C:\ACBrMonitorPLUS\Arqs'
  TS := TStringList.Create;
  TS.Clear;
  ArquivosSubDiretorio(PastaXML, TS);  // funcao que retorna todos os arquivos dentro da pasta
  for A := 0 to TS.Count-1 do
    begin
        DataArq := TFile.GetCreationTime(TS[a]);
        if (Now -  DataArq) > 30 then DeleteFile(TS[a]);
    end;
  TS.Free;
end;
 

O comando no monitor poderia passar como parametro a pasta e a qtde de dias

o proprio monitor poderia executar ou minha aplicacao passaria um comando para executar, 

Obrigado

Carlo

[Daniel Simoes]

Já estamos conversando internamente com a equipe, para decidir como implementar esse recurso...