線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:13112
推到 Plurk!
推到 Facebook!

請教各位前輩們CopyFile的用法

答題得分者是:Fishman
andychen8888
一般會員


發表:14
回覆:25
積分:7
註冊:2007-02-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-02-05 11:55:24 IP:210.67.xxx.xxx 訂閱
各位大大,因小弟是新手,所以想請教各位大大如何用DELPHI來COPY檔案,因我按F1還是看不懂它的意思,
可以請大大們有範例可以供我參考嗎?小弟不才請見諒!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
andychen8888
一般會員


發表:14
回覆:25
積分:7
註冊:2007-02-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-02-05 14:21:45 IP:210.67.xxx.xxx 訂閱
 感謝大大分享,小弟感激不盡!
andychen8888
一般會員


發表:14
回覆:25
積分:7
註冊:2007-02-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-02-06 15:35:56 IP:210.67.xxx.xxx 訂閱
可不可以再請教各位前輩們CopyFileTo的用法,需要寫一個function嗎?請各位大大解答一下好嗎?感恩!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-02-07 12:37:58 IP:59.124.xxx.xxx 未訂閱
不需要,CopyFile 本生就已經是一個 Function 了!用法如下列示範:
<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); begin if CopyFile(PChar('E:\xin.txt'), PChar('E:\xin1.txt'), False) then ShowMessage('檔案複製成功!') else ShowMessage('檔案複製失敗!'); end; </textarea><font face="Courier New">
Fishman
------
Fishman
andychen8888
一般會員


發表:14
回覆:25
積分:7
註冊:2007-02-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-02-08 11:17:04 IP:210.67.xxx.xxx 訂閱
太感謝Fishman大大了,但小弟想再請教您一件事,由於CopyFile或CopyFileTo的寫法很死,都要指定檔案來源、目的及檔名,但若我想一次COPY好幾個檔案,
且檔案名稱不一定每次都一樣,我是不是要寫一個判斷式來判別或是有更好的寫法呢?請Fishman大大指教小弟一下!感激不盡!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-02-08 13:29:13 IP:59.124.xxx.xxx 未訂閱
1.先取得你要複製的檔案清單
2.用迴圈方式處理複製

可以參考 Delphi 關於 FindFirst 的 HELP,裡面有 Sample Codes
如果要複製整個目錄,可以參考前輩範例
如何將某個目錄底下的所有檔案複製到另外一個目錄裡
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=40942


Fishman
------
Fishman
andychen8888
一般會員


發表:14
回覆:25
積分:7
註冊:2007-02-05

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-02-09 15:34:59 IP:210.67.xxx.xxx 訂閱
   感謝fishman大大,小弟受教了!
系統時間:2017-12-14 4:36:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!