Unterordnernamen auslesen

[SaFu]

????

Was meinst du damit

Delphi-Quellcode:

procedure TForm7.Speichern2Click(Sender: TObject);
 begin
  ShellTreeView1.root:= Pfadordner;
   if ShellTreeView1.Root = ShellTreeView1.Path. then
     begin
        MessageDlgPos('Bitte Ordner auswählen für die dazugehörige KW',mtInformation,[mbOk],0,290,300);
     end
    else
    begin
    speichern; //Alles speichern
      ShellTreeView1.Refresh(ShellTreeView1.Items[0]);

     end;
 end;

Also ich habe es jetzt so und so geht es aber nicht