filer i mappe ( let for øvet )

Jeg kunne desværre ikke finde ud af hvordan du finder datoen, men du kan prøve at skrive DateToStr(sr.FindData. (du skal også skrive punktumet) så kommer der en liste frem over mulighedder du kan bruge.

Det er ikke helt rigtigt. dato attributerne på SRec recorden er af type TFileTime. De skal igennem en længere konvertering inden de kan anvendes med DateToStr. Se herunder.

procedure TForm1.FormCreate(Sender: TObject);
var
  SRec : TSearchRec;
  sti : String;
  str : String;
  T   : TSystemTime;
  D   : TDateTime;

  function GetDate(Time : TFileTime) : String;
  begin
    FileTimeToLocalFileTime(Time, Time);
    FileTimeToSystemTime(Time, T);
    T.wMilliseconds := 0;
    D := SystemTimeToDateTime(T);
    Result := DateTimeToStr(D);
  end;

begin
  sti := 'D:\\';

  if FindFirst(sti + '*.*', faAnyFile, SRec) = 0 then
    repeat
      str := GetDate(SRec.FindData.ftLastAccessTime);
      str := Format('%s (%d) - %s', [sti + SRec.Name, SRec.Size, str]);
      ListBox1.AddItem(str, nil);
    until FindNext(SRec) <> 0;
  FindClose(SRec);
end;

---
Thomas Due
tdue@mail.dk

Er der nogen der kan lave en kode der tager alle filer i en mappe ( c: ) og liste dem i en listview med filnavn, størrelse og ændret den...


mvh.
Lasse Espeholt
webmaster for espeholt.dk

<pre>procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
if FindFirst('C:\\*.*', 0, sr) = 0 then
begin
repeat
ListBox1.Items.Add('Navn: ' + sr.Name + ' - '
+ 'Størrelse: ' + IntToStr(sr.Size));
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;</pre>Jeg kunne desværre ikke finde ud af hvordan du finder datoen, men du kan prøve at skrive DateToStr(sr.FindData. (du skal også skrive punktumet) så kommer der en liste frem over mulighedder du kan bruge.

Emil Melgaard
emil.melgaard@private.dk