Como recuperar a lista de arquivos dentro de um diretório?
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; |
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; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDirectory('D:\Instaladores\', '*', ListBox1.Items);
end;
-
InfusTec
-
6.175 views
- 0 comentários
- 27 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo