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