listar arquivos de um diret�rio

Question

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

Rodrigo Coutinho · Answer

Amigo use o componente directorylistbox....

Pwnet · Answer

Interessante,   Mas tem como fazer isso em c�digo?   Sem o uso de componentes X, apenas o ListBox e c�digo?   obrigado!...

Rodrigo Costa · Answer

sobe...

Cebikyn · Answer

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);

E_gama · Answer

o c�digo abaixo faz isso:[code:1:45c76f1a28]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;[/code:1:45c76f1a28]...

E_gama · Answer

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

Emir Neto · Answer

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

Cebikyn · Answer

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

F�rum listar arquivos de um diret�rio #184966