Ordner öffnen Dialog

[Assun]

Hi !

Ich habe mal nen Code gesehen, der einen OpenFolder Dialog erzeugt.

Dies geschah irgendwie mit ShellObject oder so.

Kennt jemand diesen Code oder ne andere Art einen OpenFolder Dialog anzuzeigen ?

THX

so sollte es dann aussehen :

http://home.arcor.de/mastermind04/cd/open.JPG

[BenjaminH]

Meinst du das hier?
In der COde Library

[Rastaman]

das is einfach TShellTreeView auf ner neuen Form :)

[MagicAndre1981]

@Assun

Meinst du BrowseForFolder?

André

[SebE]

Hi, ich hoff', dass ich dir damit helfen konnte:

Delphi-Quellcode:

SelectDirectory('Öffnen','',s);

[Assun]

ok, SelectDirectory hat mir geholfen.

Ich heisse übrigens Assun, nicht Assuan ;-)

[MathiasSimmack]

Auf dieser dubiosen Webseite findet man auch eine Variante. :stupid:

[Assun]

ich benutze diese Variante : SelectDirectory('Öffnen','',s);

doch wie kann ich daraus die anzahl der Dateien erfassen ?

[Luckie]

Zitat:

Zitat von Assun

ich benutze diese Variante : SelectDirectory('Öffnen','',s);

doch wie kann ich daraus die anzahl der Dateien erfassen ?

Dir ist bewußt, dass der Ordner-Öffnen-Dialog da ist, um Ordner zu öffnen und keine Dateien?

[smart]

Was hältst Du hiervon?

Delphi-Quellcode:

Uses FileCtrl;
const SELDIRHELP = 1000;
.....
procedure TForm1.Button1Click(Sender: TObject);
var
  D: string;
begin
  if SelectDirectory(D, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Button1.Caption := D;
end;

Heike.