Læse alle mapper i en bestemt mappe?

Prøv dette.

var
  folder: string;
  SearchRec: TSearchRec;
begin
  folder := 'C:\\windows\\';
  if FindFirst(folder + '*', faDirectory, SearchRec) = 0 then
  begin
    repeat
       // her kan du så gøre noget med mappen. 
       // Du finder info'ene fra SearchRec
      Memo1.Lines.Add(SearchRec.Name);
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
  end;
end;

[Redigeret d. 18/10-04 20:04:00 af DiZpel]

Hvis du burger borland delphi til at udvikle burde du have et component der hedder filelistbox?, hos mig er den under win3.1 fanen(Borland delphi 5),
-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

Hey,
Det er slet ikke så svært, og du behøver ikke bruge nogen VCL controls til det..

Kode:

var
  folder: string;
  SearchRec: TSearchRec;
begin
  folder := 'C:\\windows\\';
  if FindFirst(folder + '*', faDirectory, SearchRec) = 0 then
  begin
    repeat
       // her kan du så gøre noget med mappen. 
       // Du finder info'ene fra SearchRec
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
  end;
end;

Er ikke testet, men burde virke.

Med venlig hilsen
Ken Christensen

[Redigeret d. 05/10-04 08:57:46 af Ken Christensen]

Hey,
Det er slet ikke så svært, og du behøver ikke bruge nogen VCL controls til det..

Kode:

Kode 

var
  folder: string;
  SearchRec: TSearchRec;
begin
  folder := 'C:\\windows\\';
  if FindFirst(folder + '*', faDirectory, SearchRec) = 0 then
  begin
    repeat
       // her kan du så gøre noget med mappen. 
       // Du finder info'ene fra SearchRec
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
  end;
end;

Er ikke testet, men burde virke.

Med venlig hilsen
Ken Christensen

[Redigeret d. 05/10-04 08:57:46 af Ken Christensen]

Sikkert et dumt spørgsmål, men hvordan ville du få det ud i en memo f.eks.?