如何取得資料夾中在限定某日前所有被修改過檔案 |
答題得分者是:hagar
|
denjohn
一般會員 發表:2 回覆:2 積分:0 註冊:2002-04-14 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
用 TFileListBox 元件, 指定其 Drive 與 Directory 屬性
ex:
begin FileListBox1.Drive := 'C'; FileListBox1.Directory := 'Test'; end;接下來, 檢查檔案的時間 符合條件者, 將其檔名加入 ListBox1 中 var i: Integer; dt: TDateTime; begin for i := 0 to FileListBox1.Items.Count - 1 do begin dt := FileDateToDateTime(FileAge(FileListBox1.Items[i])); if dt >= (Now - 1) then // 檔案時間大於前一天者 ListBox1.Items.Add(FileListBox1.Items[i]); end; end; |
denjohn
一般會員 發表:2 回覆:2 積分:0 註冊:2002-04-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |