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);