Quick Tip : Listar arquivos de um Diretório

Veja nesta Quick como listar os arquivos de um Diretório



Olá galera, nesta Quick Tips, irei mostrar como listar os arquivos encontrados em um diretório.

 

Nossa rotina precisa de dois parâmetros para funcionar, o caminho do diretório que desejamos verificar os arquivos e uma lista de Strings, um Memo por exemplo ou um ListBox.

 

procedure TFrmPrincipal.ListarArquivos(Path: string; Lista: TStrings);

var

SR: TSearchRec;

begin

if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then

begin

  repeat

    if (SR.Attr <> faDirectory) then

      Lista.Add(SR.Name);

  until FindNext(SR) <> 0;

  FindClose(SR);

end;

end;

 

No onClick de um BitBtn

 

procedure TFrmPrincipal.BtnListarArquivoClick(Sender: TObject);

begin

  Memo1.Lines.Clear;

  ListarArquivos(EdtPasta.Text, Memo1.Lines);

end;

 

 

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@lithic.com.br



Artigos relacionados