Verzechniss: alle beinhaltenden Ordner ermitteln?

[LuCSteR]

Hi,

gibt es eine Funktion oder Eigenschaft, die mir von einem bestimmten Pfad die Namen alle darin befindlichen Ordner zurückgibt?

Grüße

[mkinzler]

Nein, aber Ordner sind besondere Dateien. Du kannst sie wie Datein finden (.FindFirst/.FindNext)

[HenKst]

Schau dir mal FindFirst, FindNext, FindClose an.

Damit findest du jeweils eine Datei bzw einen Ordner im angegebenen Pfad.
Ich Kenne keine Funktion die mehrere auf einmal zurückgiebt.

Yey 10 Posts^^

[DeddyH]

Du könntest Dir TStrings als Parameter an die Prozedur übergeben. Diese werden dann von der Prozedur befüllt.

[LuCSteR]

Zitat:

Es wird dringend davon abgeraten diese Lösung zu benutzen, da so die interne Reihenfolge durcheinander gebracht werden kann. So ist nicht garantiert, dass FindNext die richtigen Dateien für das Löschen findet.

(In meinem Fall kopieren)

Deshalb wollte ich auf diesen Weg verzichten.
Bei der FTP Komponente "synapse" gibt es auch eine Funktion, die mir alle Datei/Ordner-Namen in eine Liste speichert. Wenn es eine solche Funktion bei dieser speziellen Komponente gibt, warum gibt es denn keine in den Standardbibliotheken? Mhh...

@ DaddyH:
Von welcher Prozedur sprichst du?
Wie oben erwähnt, macht es nat. Sinn die Namen in einer Liste zu speichern.

[DeddyH]

Von Löschen hattest Du nichts gesagt. Und die angesprochene Prozedur könnte z.B. die folgende Signatur haben:

Delphi-Quellcode:

procedure ListSubDirs(Dirname: string;const sList: TStrings);

[HenKst]

Synapse hat diese Liste weil es eben einen FTPbefehl gibt der die liste zurückgibt.
Da macht aber der Server auch nichts anderes als das system äquivalent zu FindFirst, FindNext...

Ich weiss jetzt nicht woher dein Quote war aber das scheint mir so als wäre das eine schleife die eine Datei löscht sobald sie gefunden ist.
Wenn du dir eine Liste mit einer Find schleife erstellst und nach der Schleife eben die Dateien/Ordner aus der Liste löschst, sollte keine interne Reihenfolge darunter leiden.

[LuCSteR]

Hab auch nichts von löschen gesagt, sondern

Zitat:

(In meinem Fall kopieren)

:))

Komm ich quasi um die FindNext Sache nich drumherum oder?

Das Zitat stamm von
Delphi-Treff.

[DeddyH]

Was ist an FindFirst/FindNext so schlimm?

[LuCSteR]

FindFirst und FindNext geben mir nur Longint zurück, nicht den Namen(string) des gefundenen Elements.

Delphi-Quellcode:

ChangeCurrentDir(TempDownloadDir);
sList[0]:=FindFirst(GetCurrentDir);
sList[i]:=FindNext(GetCurrentDir);

...