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