carregar dados de uma pasta em listbox e exportar p txt xls

Delphi

18/06/2009

olá agalera

como faço para carrgar os dados de uma pasta para um list box e em seguida exportar esse dados para um arquivo txt ou xls



desde já agradeço,


Adriano.


Xadriano

Xadriano

Curtidas 0

Respostas

Woinch

Woinch

18/06/2009

Tem como ser mais especifico?

Obrigado.


GOSTEI 0
Xadriano

Xadriano

18/06/2009

exemplificando:

tenho uma pasta com 5 arquivo:
arquivo1
arquivo2
arquivo3
arquivo4
arquivo5

quero listar o nome de todos o arquivo no listbox, ou seja, aparecer no listbox:
arquivo1
arquivo2
arquivo3
arquivo4
arquivo5

em seguida: exportar os dados que estao no listbox para excel ou arquivo texto


GOSTEI 0
Woinch

Woinch

18/06/2009

Listar os arquivos de uma pasta:
procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;

begin
  I := FindFirst(´C:\Caminho\*.*´, faAnyFile, SR);
  while I = 0 do
  begin
    if (SR.Attr and faDirectory) <> faDirectory then
      ListBox1.Items.Add(SR.Name);

    I := FindNext(SR);
  end
end;


Salvar em arquivo texto:

procedure TForm1.btn2Click(Sender: TObject);
begin
  ListBox1.Items.SaveToFile(´C:\Caminho\Nome_do_arquivo.txt´);
end;


Espero ter ajudado.


GOSTEI 0
Xadriano

Xadriano

18/06/2009

ajudou e muito, era exatamente isso que eu estava precisando


valezão Woinch.


GOSTEI 0
Woinch

Woinch

18/06/2009

As ordens! ;)


GOSTEI 0
POSTAR