Multiselect Dateien und Verzeichnisse

[GoTo0815]

Guten Morgen,

auch wenn das jett nicht meine eigene Lösung ist, so ist es wenigstens eine Lösung und die will ich anderen suchenden nicht verheimlichen.
Ich habe mir die ShellBrowser Components von Jam-Software gekauft.
Mit der Komponente TJamShellList konnte ich das dann in einem eigenen Dialog zu einer Lösung bringen.

Dann ist das natürlich extrem einfach, denn die Komponente unterscheidet bei den SelectedItems erst einmal nicht ob Verzeichnis oder Datei selektiert wurde.

Code:

    JamShellList1.Path .= 'c:\bla\MeinVerzeichnis\';
    // ...
    if JamShellList1.SelectedFiles.Count >0 then
    begin
      for i := 0 to JamShellList1.SelectedFiles.Count -1 do
      begin
        // Hier das Löschen der selektierten Verzeichnisse und Dateien implementieren
      end;
    end;