Fórum Lista de arquivos de um diretório #223660

Var ValArq, Cont: word;
Proc: TSearchRec;

Cont:=0;
ValArq:=FindFirst(´Caminho´+´*.*´, faArchive, Proc);
if ValArq=0 then
begin
Repeat
ValArq:=FindFirst(´Caminho´+´*.*´, faArchive, Proc);
While ValArq=0 do
begin
RichEdit1.Lines.Add(´Caminho´+´»´+Proc.Name);
ValArq:=FindNext(Proc);
end;
Cont:=Cont+1;
Until Cont=LPas1.Count;
FindClose(Proc);
end;
end;

//quantidade de arquivos rastreados
label1.caption:=inttostr(ListaArq.Lines.Capacity);
end;

Tarcísio >> faça as adaptações necessárias

Ricardo,

Obrigado pela ajuda !!!