Delphi FInden von Verzeichnissen mit FindFirst()

Thema durchsuchen

Ansicht

Themen-Optionen

FInden von Verzeichnissen mit FindFirst()

Ein Thema von sepp001 · begonnen am 17. Mai 2004 · letzter Beitrag vom 17. Mai 2004

Vorheriger Beitrag

Nächster Beitrag

sepp001

Registriert seit: 12. Mär 2004
Ort: Schwerin
34 Beiträge

Delphi 7 Professional

FInden von Verzeichnissen mit FindFirst()

17. Mai 2004, 13:33

Hallo,

ich habe da ein kleines Problem: Ich versuche, mit Hilfe von FindFirst() über Verzeichnisse zu iterieren, um deren Inhalt auszulesen. Jedoch liefert mir diese Funktion keine Verzeichnisnamen zurück.

markieren

Code:

			strVerzeichnis := strEXEPfad + 'EP-Automaten\*.*';

i := FindFirst(strVerzeichnis, faDirectory, recSearch);

while i = 0 do

begin

  strAutomatPfad := strVerzeichnis + recSearch.Name + '\';

  leseDatei();

  schreibeAutomatenDaten();

  i := FindNext(recSearch);

end;

FindClose(recSearch);

Weiss jemand, wo der Fehler liegt?

Danke,
sepp001

Deutschland ist das einzige Land der Welt, in dem Männer achtlos über ein halbes Dutzend nackter Frauen klettern, um an eine Flasche Bier zu kommen.