Unterordner in Array speichern

[delphi-n]

Hi!

Ich bin neu hier, und habe eine Frage. Ich hab schon gesucht, aber nichts brauchbares gefunden.

Mein Problem ist dies:

Ich möchte aus einem Ordner alle Unterordner in einem Array speichern.

Also Ordnername1 in arrayname[1];
Ordnernae2 in arrayname[2]...


wie mache ich das am besten?


Vielen Dank,

der delphi-n ;)

[mkinzler]

Mit was hast du Probleme, der Ermittlung der Ordner?

[DeddyH]

Hallo und Willkommen in der DP :dp:,

mit dem Gespann FindFirst, FindNext kannst Du durch den Ordner iterieren. Um festzustellen, ob es sich bei dem aktuellen Eintrag um ein Verzeichnis handelt, kannst Du die Attribute von TSearchRec auf faDirectory untersuchen. Als Beispiel für so etwas kannst Du einmal nach FindAllFiles suchen.

[delphi-n]

wie macht man das genau? ( sry, ich hatte vergessen zu erwähnen, dass ich weder weiß, wie viele unterordner es gibt, noch wie sie heißen)

[mkinzler]

Dann bietet sich ein dynamischer Array an.

[DeddyH]

Oder eine Ableitung von TStrings (TStringlist z.B.).

[delphi-n]

das Problem liegt ja darin, dass ich nicht weiß, wie die ordner heißen.

Also soll z.B. geschaut werden, ob Ordner xy im verzeichnis z, auch im verzeichnis w zu finden ist.

Allerdings kann ich nicht schreiben "schaue nach ob xy in w vorhanden ist", da ich weder weiß, ob xy auch wirklich xy heißt, noch ob es wirklich existiert.

Und dann muss das natürlich mit einer (unbekannten) Anzahl an ordnern wiederholt werden. (wieder mit unbekannten namen).

[mkinzler]

Deren Namen kannst du ja mit FindFirst/FindNext ermitteln

[DeddyH]

Soll das eine Art Ordnersynchronisation werden?

[delphi-n]

Zitat:

Soll das eine Art Ordnersynchronisation werden?

ja, sowas in der art

Zitat:

Deren Namen kannst du ja mit FindFirst/FindNext ermitteln

wie macht man das genau? (auch auf dieses Beispiel bezogen)


[edit]: ich hab das gefunden:
http://www.delphipraxis.net/internal...=392510#392510

wie wende ich das nun auf mein Beispiel an?

Irgendwie bakommeich die procedure nicht aufgerufen. Was muss ich da reinschreiben?

ich hab schon

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var OL: array[1..99] of string;
begin
findallfiles(OL; 'C:\Programme' ;
end;

aber das will der nicht


habt ihr eine idee?