TreeView - Archiv erstellen

[atgis]

Danke! Funktioniert!

Delphi-Quellcode:

//Node Umbenennen
procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
var
  exePath, oldName, newName: string;
begin
  exePath := ExtractFilePath(ParamStr(0));
  oldName := (exePath + NodeText(TreeView1.Selected, 0, '\'));
  if Node.Level = 1 then
  begin
    oldName := oldName + S_EXT;
    newName := ExtractFilePath(oldName) + S + S_EXT;
  end else newName := exePath + S;

  RenameFile(oldname, newName);
end;

Bloß, dass ich die 2 Ebene unterbinde...das versteh ich nicht so richtig wie das gehen soll