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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin ListFileDirectory('D:\Instaladores\', '*', ListBox1.Items); end; |
