Lista de arquivos de um diretório

Delphi

31/03/2004

Alguém sabe como faço para listar os nomes dos arquivos de um diretório específico usando Delphi 7 ?

Obrigado,

Tarcísio


Tarcisio

Tarcisio

Curtidas 0

Respostas

Nerdex

Nerdex

31/03/2004

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


GOSTEI 0
Tarcisio

Tarcisio

31/03/2004

Ricardo,

Obrigado pela ajuda !!!


GOSTEI 0
POSTAR