FindFirst FindNext - Datei muss achiviert werden?

[greyblue]

Hallo

ich benutzt FindFirst, FindNext um Dateien in einem Ordner auszulesen..
und das soll in einem LISTVIEW aufgelistet werden..

Delphi-Quellcode:

sr: TSearchRec;

  if FindFirst(applpath + 'daten\*.dat', faAnyFile, sr) = 0 then
  begin
    repeat
      if (sr.Attr and faAnyFile) = sr.Attr then
      begin
        dateiname := sr.Name;
        V1 := copy(dateiname,1,pos('_',dateiname)-1);
        delete(dateiname,1,pos('_',dateiname));
        V2 := copy(dateiname,1,pos('_',dateiname)-1);
        delete(dateiname,1,pos('_',dateiname));
        V3 := copy(dateiname,1,pos('.',dateiname)-1); 
        .....
      
      end;
    until FindNext(sr) <> 0;

    FindClose(sr);
  end;

Das funktioniert auch super!

Aber,
wenn man bei der Eigenschaft der .dat Datei, "Datei kann achieviert werden" nicht ankreuzen, dann wird diese Datei nicht in der Listview angezeigt ..

warum ist es so?

Vielen Dank!!

Gruss, greyblue