FindFirst/FindNext auf Samba-Server findet nicht alle

[himitsu]

Ein Cache-Problem?
Dein Programm liest schneller, als die Dateiliste vom Server kommt. Ist also schon vorher am Ende der gespeicherten Liste und denkt es geht nicht weiter.

Mal das Result korrekt vollständig auswerten, falls es andere Gründe gibt?

Delphi-Quellcode:

ErrorCode := FindFirst(FileName, faAnyFile, SR);
if ErrorCode = S_OK Then begin
  try
    repeat
      InvoiceDateien.Add(SR.Name);
      ErrorCode := FindNext(SR);
      if ErrorCode <> ERROR_NO_MORE_FILES then
        RaiseLastOSError(ErrorCode);
    until ErrorCode = S_OK;
  finally
    FindClose(SR);
  end;
end else if ErrorCode <> ERROR_FILE_NOT_FOUND then
  RaiseLastOSError(ErrorCode);