Findfirst, FindNext und Serverlaufwerke

[KarstenK]

Hallo,

Ich denke diese Zeile ist falsch

If Boolean (FindRecord.Attr and faDirectory) Then



ich nutze

function EqualFileAttribute(SR: TSearchRec; FileAttrs: Integer): Boolean;
begin
Result := ((sr.Attr and FileAttrs) = (sr.Attr and $FF));
end;


ansonsten mal log Einträge erzeugen, damit man sieht was falsch läuft.