FInden von Verzeichnissen mit FindFirst()

[sepp001]

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.

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