Messages

Olá Casanova,
O seguinte método cria um arquivo de texto, com o conteúdo de "arquivos" de uma pasta qualquer.
O método não faz realmente o que você precisa, peguei aqui de um source meu, mais dá pra entender como funciona e implementar. Espero que ajude.

Code Select Expand

procedure TFormServer.tmQueueTimer(Sender: TObject);
var
  F: TSearchRec;
  i:integer;
begin
  Ret := FindFirst('C:\Stew\apache\htdocs\imperiusupdate\*.*', faAnyFile, F);
  try
    Ret := FindNext(F);
    Ret := FindNext(F);
    lbarq.Clear;
    while Ret = 0 do
    begin
      lbarq.Items.Add(F.name);
      Ret := FindNext(F);
    end;
    lbarq.SaveToFile('C:\Stew\apache\htdocs\imperiusqueue.txt');
  finally
    FindClose(F);
  end;
end;
Até mais.