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

[iaby]

du schreibst ...faDirectory
hatte da auch so meine probleme mit dem verständnis dieses parameters
suche einfach nach faAnyFile und lese dann daraus die verzeichnisse aus if recsearch.name[1]= '.' then... oder auch if directoryexists(research.name) then gruss,
iaby

[alcaeus]

oder einfach:

Delphi-Quellcode:

if (recsearch and faDirectory) = faDirectory then
//...

Bei mir hat die Suche mit faDirectory nichts ergeben, jedoch die Abfrage hat immer funktioniert.

[sepp001]

Hallo,

falscher Alarm... Quellcode ist richtig, aber ich übergebe an die weiterverarbeitenden Funktionen den falschen Parameter (da befindet sich das '*.*' noch im String und das geht nicht gut).

Ciao,
sepp001

Erst denken, dann posten... *schäm*

[Christian Seehase]

Moin iaby,

Zitat von iaby:

... und lese dann daraus die verzeichnisse aus if recsearch.name[1]= '.' then...

Wenn ich richtig annehme, dass Du damit die übliche Abfrage

if (recsearch.name <> '.') and (recsearch.name <> '..') then ... meinst, muss ich Dir sagen, dass Deine Abfrage falsch ist.
Datei- und Verzeichnisnamen dürfen (und können) mit einem Punkt beginnen, auch wenn man dies im Explorer nicht so eingeben kann.
In der Konsole und natürlich bei der Angabe von Namen beim Erstellen einer Datei geht das hingegen problemlos.
Man muss also explizit '.' und '..' abfragen.