Unterordnernamen auslesen

[SaFu]

Guten morgen
Hab mal ne Frage zum ShellTreeView ich habe das Shelltreeview auf einen bestimmten Ordener gesetzt in dem Erzeuge ich dann unterordner.

Danach werden dateien erstellt und die will ich jetzt mit dem Unterordnernamen und datei namen abspeichern

Mein problem ist jetzt wie lese ich den Unterordenernamen aus um den in den in den namen der zu speichernde Datei zu übergeben

Delphi-Quellcode:

 Grid:= hier muss der name des unter ordners aus dem ShellTreeview + ComboBox4.Text+'.txt';
  FileStream.SaveToFile(Grid);

Danke schonmal

[Klaus01]

Guten Morgen Sascha,

Zitat von fuknersascha:

Guten morgen
Hab mal ne Frage zum ShellTreeView ich habe das Shelltreeview auf einen bestimmten Ordener gesetzt in dem Erzeuge ich dann unterordner.

Du erstellst Unterordener und kennst nicht dessen Namen?

Grüße
Klaus

[SaFu]

Doch erstell sie so

ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Vertretungspläne\'+(IntToStr(YearOf(DateTimePicker1.DateTime))) und mein shellTreeView ist so eingestellt

Delphi-Quellcode:

Pfadordner:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\';
  ShellTreeView1.Root:= Pfadordner;

Jetzt will ich eine Datei speichern aber in dem Ordenr den ich im shellTreeview angeklickt habe + Combobox.text

[SaFu]

Achso vorher habe ich das mit dem Speichern so gemacht

Delphi-Quellcode:

  Grid:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(Grid);

Da wird die Datei mit dem name im Ordenr Vertretungspläne gespeichert würde jetzt gerne aber den pfad vom shelltreewiev haben

[DeddyH]

Hallo,

schau mal hier.

[SaFu]

genau das
war es

hab nochmal ne kleine frage

wie prüfe ich ob ein Ordner ausgewählt wurde im shelltreeview

Delphi-Quellcode:

if not ShellTreeview1.SelectedFolder = true then
Showmessage('Nichts ausgewählt')

[Klaus01]

Also wenn nichts ausgewählt wurde
ist der Path gleich Root.

Grüße
Klaus

[SaFu]

Was mach ich falsch

Delphi-Quellcode:

 if ShellTreeview1.Root = (Pfadordner) = True then
  begin
   MessageDlgPos('Nichts ausgewählt!',mtInformation,[mbOk],0,290,300);
   end

[Klaus01]

Zitat von fuknersascha:

Was mach ich falsch

Delphi-Quellcode:

 if ShellTreeview1.Root = (Pfadordner) then
  begin
   MessageDlgPos('Nichts ausgewählt!',mtInformation,[mbOk],0,290,300);
   end

[SaFu]

So ja auch nicht

 if ShellTreeView1.Root = True ich komm echt net drauf