Verzeichnis in VirtualStringTree

[etom291272]

hy

der Trick ist die Ordnerstruktur mit einer rekursiven funktion einzulesen. Mit dem folgenden Code kannst du ein verzeichnis rekursiv in ein memo einlesen. du musst nur mehr statt dem insert des memos einen knoten bzw kindelemente im vst erstellen.

Delphi-Quellcode:

procedure TForm1.GetDirsRek(RootDir: string);
var
  search: TSearchRec;
  ts: TStringList;
begin
  ts := TStringList.Create;
  try
    if FindFirst(RootDir + '*.*', faDirectory, search) = 0 then
    begin
      repeat

        if ((search.Attr and faDirectory) = faDirectory) and
            (search.Name <> '.') and (search.Name <> '..') then
        begin
          Memo1.Lines.Add(RootDir + search.Name); //rootDir vorangestellt damit du auch weist in welchem Ordner der gefundene Ordner ist
          GetDirsRek(RootDir + search.Name + '\');
        end;

      until FindNext(search) <> 0;
      FindClose(search);
    end;
    //ts.sort;
    //Memo1.Lines.AddStrings(ts);
  finally
    ts.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
GetDirsRek('Z:\DelphiPlattform\');
end;