FindFirst findet nur die hälfte Dateien

[Leo675]

Hallo aller seits!

Kann mir jemand erklären wieso bei solchem Aufruf:

Delphi-Quellcode:

if  FindFirst(PfadCamera1,faAnyFile,nm1)= 0 then                                
  begin
    repeat
      begin
        NewFile := nm1.Name;                                                   
        DatTime:=DateTimeToStr(FileDateToDateTime(nm1.Time));                 
        TimeFileListCamera1.Add(DatTime+'/'+NewFile);
        FindNext(nm1);                                                   
       end;
    until FindNext(nm1)<>0;
    FindClose(nm1);                                                             
    TimeFileListCamera1.SaveToFile('C:\Dokumente und Einstellungen\Desktop\EigeneProjekte\ListeOhneSortierung.ini');
    TimeFileListCamera1.Sorted := True;
    TimeFileListCamera1.SaveToFile('C:\Dokumente und Einstellungen\Desktop\EigeneProjekte\ListeMitSortierung.ini');
  end;

der Kompiler nicht alle Dateien in Verzeichnis unter PfadCamera1 findet sondern nur die helfte

[DeddyH]

Weil Du 2 mal FindNext aufrufst vielleicht? ;)

[Leo675]

Danke!