Hallo!
Ich habe ab und zu mal ein merkwürdiges Problem. Auf einem Samba-Server habe ich einen Ordner liegen, der teilweise 200-1000 Dateien beinhaltet. Diese werden von meinem Programm per FindFirst/FindNext gesucht und eingetragen. Zu 95% klappt das auch, aber hin und wieder findet er nur 2-3 Dateien, ohne Fehler. Startet man die Funktion erneut im gleichen Atemzug, findet er den Rest.
Heute z.B. lagen 737 Dateien dort. Erster Start der Funktion hat er 2 Dateien gefunden, direkt danach die restlichen 735.
Wie die Dateien aussehen, seht ihr im Anhang.
Hier mal mein Code-Schnipsel:
Delphi-Quellcode:
:
:
Begin
FileName := Konst.ImportPfadKonstanten.XMLImport + 'INV*.*';
If FindFirst(FileName,faAnyFile,SR) = 0 Then
Begin
Repeat
InvoiceDateien.Add(SR.Name);
Until FindNext(SR) <> 0;
FindClose(SR);
Result := True;
End Else
Begin
MessageDlg('Es konnten keine Import-Dateien im Pfad '+Konst.ImportPfadKonstanten.XMLImport+' gefunden werden!',
mtWarning,[mbOK],0);
Result := False;
End;
End;
:
:
Hat jemand auch schon mal so ein Phänomän gehabt? Irgendwie skurril...
Stephan