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 MSDN-Library durchsuchen

BrowseForFolder?

André

**SebE**

Hi, ich hoff', dass ich dir damit helfen konnte:
SelectDirectory('Öffnen','',s);

**Assun**

ok, SelectDirectory hat mir geholfen.

Ich heisse übrigens Assun, nicht Assuan

Auf dieser

dubiosen Webseite findet man auch eine Variante.

**Assun**

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

doch wie kann ich daraus die anzahl der Dateien erfassen ?

**Luckie**

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?

markieren

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.

Ordner öffnen Dialog

Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Re: Ordner öffnen Dialog

Forumregeln

Assun Registriert seit: 3. Feb 2005 Ort: Hilzingen am Bodensee 469 Beiträge Delphi 2005 Personal	#1 Ordner öffnen Dialog 30. Jun 2005, 20:15 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 Sebastian Dietrich http://Assun.de - bald komplett überarbeitet
	Zitat

BenjaminH Registriert seit: 14. Okt 2004 Ort: Freiburg im Breisgau 713 Beiträge Turbo Delphi für Win32	#2 Re: Ordner öffnen Dialog 30. Jun 2005, 20:24 Meinst du das hier? In der COde Library Benjamin
	Zitat

Rastaman Registriert seit: 6. Jan 2005 Ort: Lübbecke 575 Beiträge Turbo C++	#3 Re: Ordner öffnen Dialog 30. Jun 2005, 20:27 das is einfach TShellTreeView auf ner neuen Form Chuck Norris has counted to infinity ... twice!
	Zitat

MagicAndre1981 Registriert seit: 4. Jun 2004 Ort: Nordhausen 2.214 Beiträge Delphi 7 Enterprise	#4 Re: Ordner öffnen Dialog 30. Jun 2005, 20:40 @Assun Meinst du BrowseForFolder? André André
	Zitat

SebE Registriert seit: 31. Jul 2004 Ort: Chemnitz 316 Beiträge Delphi 7 Personal	#5 Re: Ordner öffnen Dialog 30. Jun 2005, 20:46 Hi, ich hoff', dass ich dir damit helfen konnte: SelectDirectory('Öffnen','',s); Sebastian
	Zitat

Assun Registriert seit: 3. Feb 2005 Ort: Hilzingen am Bodensee 469 Beiträge Delphi 2005 Personal	#6 Re: Ordner öffnen Dialog 30. Jun 2005, 20:51 ok, SelectDirectory hat mir geholfen. Ich heisse übrigens Assun, nicht Assuan Sebastian Dietrich http://Assun.de - bald komplett überarbeitet
	Zitat

MathiasSimmack (Gast) n/a Beiträge	#7 Re: Ordner öffnen Dialog 30. Jun 2005, 21:23 Auf dieser dubiosen Webseite findet man auch eine Variante.
	Zitat

Assun Registriert seit: 3. Feb 2005 Ort: Hilzingen am Bodensee 469 Beiträge Delphi 2005 Personal	#8 Re: Ordner öffnen Dialog 7. Jul 2005, 18:15 ich benutze diese Variante : SelectDirectory('Öffnen','',s); doch wie kann ich daraus die anzahl der Dateien erfassen ? Sebastian Dietrich http://Assun.de - bald komplett überarbeitet
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#9 Re: Ordner öffnen Dialog 7. Jul 2005, 18:18 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? Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

smart Registriert seit: 19. Dez 2004 Ort: Bochum 1.266 Beiträge Delphi 2007 Professional	#10 Re: Ordner öffnen Dialog 7. Jul 2005, 20:02 Was hältst Du hiervon? markieren 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. Heike Kretschmann
	Zitat