Verzeichnis auslesen

[Tpercon]

Hier jetzt mein aktueller Code:

Code:

var 
  datei: TSearchRec;
  a: integer;
  s: string;
begin
  s := 'c:\*.*';
  ListView1.Items.Clear;
  If FindFirst(s,faAnyFile,datei) = 0 then
  begin
    try
      repeat
      If datei.Name = '.' then Continue;
      ListView1.Items.Add;
      a := ListView1.Items.Count -1;
      ListView1.Items.Item[a].Caption := datei.Name;
      ListView1.Items.Item[a].SubItems.Add(InttoStr(datei.size));
      ListView1.Items.Item[a].SubItems.Add(DateTimetoStr(FileDateToDateTime(datei.time)));
     If datei.Attr and fadirectory > 0 then
     begin
        If datei.name <> '..'
        then ListView1.Items.Item[a].ImageIndex := 1
        else ListView1.Items.Item[a].ImageIndex := 2;
      end
      else ListView1.Items.Item[a].ImageIndex := 0;
    until Findnext(datei) <> 0;
  finally
    FindClose(datei);
  end;
end;

Gruß

by Daniel B;Code-Form.