[DELPHI] Elenco dei file contenuti nella directory

[Ely88M]

Buongiorno!!

Avrei bisogno di ottenere un elenco dei file contenuti in una directory. Sapete come posso fare?
ho provato con findfirst ma non mi prende niente

questo sarebbe il mio pezzo di codice in cui sr è un TSearchRec..
non funziona

 repeat
   findFirst('C:\dirProva',0,sr);
   mem.Lines.Add(sr.Name);
 until findnext(sr)<>0;
 findclose(sr);

Chi sa aiutarmi?

Grazie
Ciao

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

[123delphi321]

ciao

http://www.scalabium.com/faq/dct0029.htm

[Ely88M]

e se io vorrei ottenere solo il nome delle directory?

[123delphi321]

scusa il rirtardo...

Var
path: string;
begin
path:= 'f:\*.*';
Listbox2.Perform(LB_DIR, DDL_DIRECTORY or DDL_EXCLUSIVE, LPARAM(Pchar(Path)));
end;


ciao

[Ely88M]

Grazie mille!!!!

Ciao