請問備份選擇日期的方式 |
缺席
|
pcks
一般會員 發表:1 回覆:1 積分:0 註冊:2006-12-13 發送簡訊給我 |
請問一下各位大大,小弟剛碰delphi二個星期所以不太熟悉,因為我想要做一個有三個edit可以輸入年月日
用以為選擇的目錄底下的檔案依建立日期來做備份,在網上看到有位大大有貼類似的程式所以拿來修改了一點 在下面中有一段 //若輸入的edit中年、月、日和td中相符則true這三行,是用以判斷我輸入之三個數值,即年月 日,而如果在下想做到只輸入年,或年和月,後面的值都不輸入任何值就可以依年或年 月來尋找,試了許久 實在是不行,請各位大大給小弟一點提示吧 >"< if FindFirst(s '*.*', faAnyFile, r) = 0 then begin repeat if (r.Name <> '.') and (r.Name <> '..') then begin ns := s r.Name; //新來源目錄路徑或檔案名稱 nd := d r.Name; //新目的目錄路徑或檔案名稱。 sd:=filedatetodatetime(r.time); //將檔案、資料夾日期傳給sd decodedate(sd,x,q,z); //將sd中的年、月、日分離 if (strtoint(form1.Edit3.Text) = x) //若輸入的edit中年、月、日和td中相符則true and (strtoint(form1.edit4.text) = q) and (strtoint(form1.Edit5.text) = z) then if (r.Attr and faDirectory) = faDirectory then begin //若為目錄時,則... if ForceDirectories(nd) = false then Exit; //嚐試建立目的目錄。 CopyDir2(ns, nd); //再找下一層子目錄複製。 end else begin if FileExists(nd) and (vOverwrite = false) then Continue; //若目的檔案存在且又不覆寫時,則... if CopyFile(PChar(ns), PChar(nd), false) =false then Exit; end ; end; until FindNext(r) <> 0; |
pcks
一般會員 發表:1 回覆:1 積分:0 註冊:2006-12-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |