Como recuperar a lista de arquivos dentro de um diretório?

DAVID CANDIDO DA SILVA

DAVID CANDIDO DA SILVA Publicado 17/11/2017 


Esta função preenche uma lista com os arquivos e pastas dentro do
diretório solicitado.

Ainda é possível filtrar a extensão de arquivo que se pretende visualizar.

É necessário estar declarado SysUtils e Classes na seção uses,
em versões unicode declare System.SysUtils e System.Classes.

Segue o código fonte do procedimento:


procedure ListFileDirectory(aDirectory, aExtensao : String; List : TStrings);
var
  SR : TSearchRec;
  I  : Integer;
begin
  List.Clear;
    I := FindFirst(aDirectory + '*.' + aExtensao, faAnyFile, SR);
    while (I = 0) do
  begin
    List.Add(sr.Name);
    I := FindNext(SR);
  end;
end;


Exemplo de uso:


procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFileDirectory('D:\Instaladores\', '*', ListBox1.Items);
end;
 

Voltar ao topo