Arquivos

Delphi

23/01/2004

Olá!!!
Como faço para ´listar´ os arquivos de uma determinada pasta em um ListBox(ou coisa parecida)?

Por exemplo: Num programa declarei o FILECTRL e no evento OnCLick de
um Botão coloquei esse código:
SelectDirectory(´Selecione o diretório´,´´,dir);
até aqui blz, agora, gostaria de colocar, em um ListBox, os arquivos que estão dentro desse diretório escolhido.

T+ :wink:


Celo-faveri

Celo-faveri

Curtidas 0

Respostas

Cebikyn

Cebikyn

23/01/2004

Você pode fazer assim:

var
   D: PChar;
begin
   D := ´C:\*.*´;
   SendMessage(ListBox1.Handle,
               LB_DIR,
               DDL_ARCHIVE +
               DDL_EXCLUSIVE +
               DDL_HIDDEN +
               DDL_READONLY +
               DDL_READWRITE +
               DDL_SYSTEM,
               Integer(D));
end;


ou assim:

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + ´*.*´, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFileDir(´C:\WINDOWS\´, ListBox1.Items);
end;



GOSTEI 0
POSTAR