Filelistbox da tarih görmek

[Armani]

merhaba arkadaşlar.
DirectoryListBox da seçtigim klasörün altındaki dosyaları
Filelistbox da görebiliyorum. Fakat tarihlerinide aynı anda görmek istiyorum.
Bunun için ne yapmalıyım.

Teşekkürler

[husonet]

Öncelikle Daha önce yazdığımız Fonksiyondan yararlanacağız.

Fonkisyonu tekrar veriyorum

Kod: Tümünü seç

function DosyaTarihBak(FileName: string): TDateTime;
var DosyaYas: LongInt;
begin
  DosyaYas := FileAge(FileName);
  if DosyaYas = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(DosyaYas)
end;

Ve Bir kaç satırlık kodlama ile
Hedefi 12 den vuracaz

Kod: Tümünü seç

var
    i:Integer;
begin
    i:=0;
    FileListBox1.Update;
    For i:=0 to FileListBox1.Count -1 do
    Begin
        FileListBox1.SetFocus;
        FileListBox1.Selected[i] := True;
        FileListBox1.Items.Strings[i] := FileListBox1.Items.Strings[i]+ '   ' + DateToStr(DosyaTarihBak(FileListBox1.FileName));
    End;

end;

Aslında olay bir döngü ile listemizde bulunan dosyaların yanına Tarihlerini attach liyoruz.

Kolay Gelsin...

[Armani]

çok teşekkürler
amacıma ulaştım.