No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Leer el contenido de una Carpeta.

delphi

procedure FindAll (const Path: String;
                         Attr: Integer;
                         List: TStrings);
var
  Res: TSearchRec;
  EOFound: Boolean;
begin
  EOFound:= False;
  if FindFirst(Path, Attr, Res) < 0 then
    exit
  else
    while not EOFound do begin
      List.Add(Res.Name);
      EOFound:= FindNext(Res) <> 0;
    end;
  FindClose(Res);
end;

Saludos!