Unterordnernamen auslesen

[Klaus01]

Zitat von fuknersascha:

Bei mir kommt immer die Message wenn ich kein name auswähle und wenn ich einen Ordner auswähle

Delphi-Quellcode:

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

Sorry