Eigenen Explorer: Datum von Datei und keine Ordner zeigen

[GuenterS]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: tsearchrec;
  found: integer;
begin
   found := findfirst(IncludeTrailingPathDelimiter(Edit1.Text)+'*.*',faanyfile,sr);
   while found=0 do
   begin
      if ((sr.attr and faDirectory) <> faDirectory) then 
         with ListView1.Items.Add do
         begin
            found:=findnext(sr);
            Caption := (sr.Name);
            Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
            Subitems.Add(DateTimeToStr(FileDateToDateTime(sr.time))); 
         end;
      found := findnext(sr); //<--- haste auch vergessen
   end;
   findclose(sr)
end;

Mein Fehler, hab nicht bedacht, dass auch Verzeichnisse andere Attribute haben können.