請問如何讀取某一目錄下的所有檔案名稱,及檔案的修改日期? |
答題得分者是:jow
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
|
shinjie
資深會員 發表:12 回覆:275 積分:287 註冊:2003-03-19 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
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; |
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
引言: 目錄下的檔案 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兄提供資料供小弟參考… 引言:感謝jow兄的指導…小弟知道該怎麼做了 jow兄有提供Example,所以將分數給jow兄了…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;
------
~小弟淺見,參考看看~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |