Verzeichnis auslesen

[jbg]

Ich war zu faul, den hinzuschreiben. Ich weis auch nicht ob mein Code Copy&Paste fähig ist, da ich ihn hier im Forumseditor geschrieben habe.

Code:

var 
  sr: TSearchRec; 
  Item: TListItem; 
begin 
  if FindFirst(s, faAnyFile, sr) = 0 then
  try
    repeat 
      if (sr.Name <> '.') then Continue; 
      Item := ListView1.Items.Add; 
      Item.Caption := sr.Name; 
      if sr.Attr and faDirectory <> 0 then 
      begin 
        if sr.Name <> '..' then ListView1.Items.Item[a].ImageIndex := 1 
         else ListView1.Items.Item[a].ImageIndex := 2; 
      end else
        Item.ImageIndex := 0; 

      Item.SubItems.Add(InttoStr(sr.Size)); 
      Item.SubItems.Add(DateTimetoStr(FileDateToDateTime(datei.time)); 
    until FindNext(se) <> 0; 
  finally
    FindClose(sr);
  end;
end;