FindFirst/FindNext BUG

[md_mse]

Zitat von Nightshade:

Der folgende Code findet auf meinen Platten nicht alle Dateien.
Auf meiner "G"-Festplatte findet er alles einwandfrei, aber z.B. auf meiner "F"-Festplatte fidet er nichts.

Delphi-Quellcode:

procedure TForm1.ReadDir(path : string; sl : TStrings);
...
  if FindFirst(Path + '*.*', FFileAttrs, Fsr) = 0 then
...
end;

Beim Debuggen der Funktion ist mir aufgefallen das FindFirst für fsr.Attr = 8208 zurückliefert.

Kann das mal jemand überprüfen ?

PS :

Win XP-Pro SP2
Delphi 2005 [eng] Architect Trail

Du musst vorher auf das Laufwerk wechseln, du kannst das nicht per "FindFirst" bewerkstelligen...
mit

Code:

ChDir('G:\')

kommst du sicherlich auch auf Laufwerk G: