Ordner INhalt liste erzeugen

[Coolboarder_9]

Hallo.

SO ich hab jetz diesen Queeltext hier:

Delphi-Quellcode:

procedure GetFiles(Directory: string; Point: String; List: TStrings; Rek: Boolean);
var
  Search: TSearchRec;
begin
  if (Directory<>'') and (Directory[length(Directory)]<>'\') then
        Directory:=Directory+'\';

  if (FindFirst(Directory+Point,faAnyFile-faDirectory,Search)=0) then begin
    repeat
        if (Search.Name<>'.') and (Search.Name<>'..') and (Search.Attr<>faDirectory) then
                 List.Add(Directory+Search.Name)
    until FindNext(Search)<>0;

    FindClose(Search);
  end;

  if Rek then
    if (FindFirst(Directory+'*.*',faDirectory,Search)=0) then
    begin
      repeat
                if (Search.Name<>'.') and (Search.Name<>'..') then
                 GetFiles(Directory+Search.Name,Point,List,True);
      until FindNext(Search)<>0;

      FindClose(Search);
    end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFiles(ShellTreeView1.Path,'*.*',Listbox1.Items,False);
end;

und jetz würd ich gern Odner mitausgeben lasssen. also nicht nur die dateien in dem Ordner den ich angegeben habe sondern auch die Dateien die in den Unterordnern meines angewählten ordner sind.
wenn ich also den Programme ordner nehem auch die gesamten Ordner der Programe die drinsind und deren Dateien.

Kann man da irgendiwe sagen, dass das Programm im ShellTree einfach eine ebene vom angegeben Path runtergeht und dort die einzelnen Path der Unterordner langgeht ?
Fällt euch was ein

Mfg Olli

[Luckie]

Aus der Code-Lib FindFirst sollte dir helfen.