Alle Files aus einem Ordner in eine ListBox...

Leathl · Beiträge: 276

---

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hi!

So kannst Du schon mal die Dateien hinzufügen:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
VAR sr : TSearchRec;
begin
  FindFirst('c:\temp\*.*',faAnyFile-faDirectory,sr);
  ListBox1.Items.Add(sr.Name);
  while FindNext(sr) = 0 do
  ListBox1.Items.Add(sr.Name);
  FindClose(sr);
end;

Um das Verzeichnis auszuwählen, wird "SelectDirectory" Dir sehr nützlich sein.

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Ehemaliges Mitglied Erhaltene Danke: 1

Und nur einen Ordner auswählen kannst du mit SelectDirectory aus der Unit FileCtrl.

fcg · Beiträge: 360 WinXP D3 Prof, D6 Pers

steht auch in den FAQ drinn.

www.delphi-forum.de/...ight=suchen+rekursiv

fcg

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

Leathl · Beiträge: 276

---

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Mir ist noch aufgefallen, dass Du prüfen solltest, ob FindFirst überhaupt ein Ergebnis geliefert hat, bevor Du es der ListBox hinzufügst und mit der while-Schleife weitermachst!

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Gast Erhaltene Danke: 1

Hab da mal ne Frage zu FindFirst! Warum geht das nicht:

markieren

Delphi-Quelltext

1:	r:=findfirst('c:\*.txt',faAnyFile,sr);

hehe! Schon rausgefunden. Sry

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme