listar arquivos de um diretório

Delphi

29/09/2003

Pessoal,

Como faço para exibir, por exemplo num listbox, o nome de todos os arquivos de um determinado diretório ?


Rodrigo Costa

Rodrigo Costa

Curtidas 0

Respostas

Rodrigo Coutinho

Rodrigo Coutinho

29/09/2003

Amigo use o componente directorylistbox.


GOSTEI 0
Pwnet

Pwnet

29/09/2003

Interessante,

Mas tem como fazer isso em código?
Sem o uso de componentes X, apenas o ListBox e código?

obrigado!


GOSTEI 0
Rodrigo Costa

Rodrigo Costa

29/09/2003

sobe


GOSTEI 0
Cebikyn

Cebikyn

29/09/2003

A procedure abaixo pega os arquivos de uma pasta, mais abaixo está como usar a procedure juntamente com um TListBox:

procedure ListarPasta(Pasta: string; Strings: TStrings);
var
  Rec : TSearchRec;
begin
  sl.Clear;
  Pasta := IncludeTrailingBackSlash(Pasta);
  // Note que aqui vc tb pode esccolher a extensão dos arquivos:
  if SysUtils.FindFirst(Pasta + ´*.*´, faAnyFile, Rec) = 0 then
  try
    repeat
      sl.Add(Rec.Name);
    until SysUtils.FindNext(Rec) <> 0;
  finally
    SysUtils.FindClose(Rec);
  end;
end;


Para usar no [b:53141350a1]ListBox[/b:53141350a1]:
ListarPasta(´C:\Pasta Tal\Diretorio\QMS´, ListBox1.Items);



GOSTEI 0
E_gama

E_gama

29/09/2003

o código abaixo faz isso:

procedure TForm1.Button1Click(Sender: TObject);
const Dir = ´c:\´;
      Arq = ´*.*´; 

var SR: TSearchRec;
begin
  Memo1.Lines.Clear;
  if FindFirst(PChar(Dir + Arq), faArchive, SR) = 0 then
     repeat
       begin
         Memo1.Lines.Add(SR.Name);
       end
     until FindNext(SR) > 0;
end;



GOSTEI 0
E_gama

E_gama

29/09/2003

Ops! Não tinha lido o post do amigo cebikyn ainda...


GOSTEI 0
Emir Neto

Emir Neto

29/09/2003

Não funcionou comigo, pergunta logo o que é
[b:7cf90b1885]sl[/b:7cf90b1885]


GOSTEI 0
Cebikyn

Cebikyn

29/09/2003

Troque SL por Strings, eu me enganei qnd escrevi SL... :oops:


GOSTEI 0
POSTAR