FindFirst/FindNext BUG

[Muetze1]

Moin!

Jo, so wie Jim_Raynor das auch richtig schreibt ist es auch bei FindFirstFile(). Das ist eindeutig der Fehler in deinem Code, da die einzelnen Flags nur Bits in den Attributen sind und du sie eigentlich ausmaskierst und dann schaust ob sie gesetzt sind. Du hast diese ausmaskiert und geschaut ob sich nix geändert hat, was dann bedeutet, das das jeweilige Bit nicht gesetzt ist. Somit rufst du eine Unterdirectorysuche auf ohne das du ein Directory vor dir hast.

MfG
Muetze1

[Christian Seehase]

Moin Nightshade,

noch ein Bug in Deiner Routine:

Delphi-Quellcode:

if copy(fsr.name,1,1) <> '.' then

es muss explizit auf <> '.' und <> '..' geprüft werden, da eine Datei/Verzeichnisname durchaus mit einem Punkt beginnen darf.

[Nightshade]

Zitat:

Zitat von Christian Seehase

Moin Nightshade,

noch ein Bug in Deiner Routine:

Delphi-Quellcode:

if copy(fsr.name,1,1) <> '.' then

es muss explizit auf <> '.' und <> '..' geprüft werden, da eine Datei/Verzeichnisname durchaus mit einem Punkt beginnen darf.

Jau, hast recht...