各位前輩： 請問如何讀取某一目錄下的所有檔案名稱，及檔案的修改日期?敬請指教，感激不盡…

------
~小弟淺見，參考看看~

目錄下的檔案 http://delphi.ktop.com.tw/topic.php?topic_id=40171 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20345 檔案修改日期 http://delphi.ktop.com.tw/topic.php?topic_Id=54536

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  F: TSearchRec;
begin
  if FindFirst('C:\*.*', faArchive, F) = 0 then
  begin
  repeat
    S := F.Name;
    if(S<>'.')and(S<>'..')then
    begin
      S := S   ' '  
        FormatDateTime('YYYY/MM/DD hh:nn:ss',
          FileDateToDateTime(F.Time));
      ListBox1.Items.Add(S);
    end;
    until FindNext(F) <> 0;
    FindClose(F);
  end;
end;

引言: 目錄下的檔案 http://delphi.ktop.com.tw/topic.php?topic_id=40171 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20345 檔案修改日期 http://delphi.ktop.com.tw/topic.php?topic_Id=54536

感謝shinjie兄提供資料供小弟參考…

引言:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  F: TSearchRec;
begin
  if FindFirst('C:\*.*', faArchive, F) = 0 then
  begin
  repeat
    S := F.Name;
    if(S<>'.')and(S<>'..')then
    begin
      S := S   ' '  
        FormatDateTime('YYYY/MM/DD hh:nn:ss',
          FileDateToDateTime(F.Time));
      ListBox1.Items.Add(S);
    end;
    until FindNext(F) <> 0;
    FindClose(F);
  end;
end;

感謝jow兄的指導…小弟知道該怎麼做了 jow兄有提供Example，所以將分數給jow兄了…shinjie兄下次有機會再將分數給您囉…