[DELPHI] Elenco dei file contenuti nella directory

[Ely88M]

HO trovato!!

Ho fatto questa procedura

procedure Tform1.FindFiles(FilesList: TStringList; StartDir, FileMask: string);
var
  SR: TSearchRec;
  IsFound: Boolean;

begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';

  { Build a list of the files in directory StartDir
     (not the directories!)                         }

  IsFound :=
    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    mem.Lines.Add(SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
  EDIT1.Text:=inttostr(mem.Lines.Count);
end;