TreeView og ListView??

du skal lave en rekursiv function der gennemsøger en mappes undermapper, og disse undermappers undermapper osv.

hopper lige med...

prøv denne fil Anders det kan måske hjælpe dig???

/ZIRON

procedure TForm1.SubDirs(Node: TTreeNode; const Path: string);
var
  SearchRec: TSearchRec;
  CurrentNode: TTreeNode;
  CurrentDir: string;
begin
  if FindFirst(Path + \'*.*\', faDirectory, SearchRec) = 0 then
    try
      repeat
        if ((SearchRec.Attr and faDirectory) <> 0) and (SearchRec.Name[1] <> \'.\') then
        begin
          CurrentNode := TreeView1.Items.AddChild(Node, SearchRec.Name);
          CurrentDir := Path + SearchRec.Name + \'\\\';
          SubDirs(CurrentNode, CurrentDir);
        end;
      until FindNext(SearchRec) <> 0;
    finally
      FindClose(SearchRec);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Node: TTreeNode;
begin
  Node := TreeView1.Items.AddChild(nil, \'c:\');
  SubDirs(Node, \'c:\');
end;