[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!