[Delphi]CopyFile函數詳解

======================================================
注：本文源代码点此下载
======================================================

[delphi]copyfile函數詳解

2007-07-20 15:41:40|分类: 学习 |标签: |字号大中小 订阅

今天在翻以前的delphi筆記的時候看到了這個函數的使用,但是記錄的很少.以前好像沒怎么用過這個函數.所以就想來試試.到網上去搜這個函數的詳解,竟然沒有找到.所以,自己今天在test的時候,順便把這個函數的基本使用方法給記錄下.方便以后再用,也方便和我一樣的菜鳥們學習.

copyfile函數,文件拷贝函数.其基本結構如下:

copyfile(

lpcstrlpexistingfilename,//源文件路径

lpcstrlpnewfilename,//新文件路径

boolbfailifexists//为true的话,如果新文件已存在,则返回false;如果為false的話,如果新文件已經存在,會將原來的

覆蓋.

);

函數成功返回true,失敗返回false;

举例:

copyfile(pchar('sql.txt'),pchar(extractfilepath(application.exename) + '2.txt'),true);

后來在試驗的時候發現,源文件前可以不加pchar函數轉換,但新文件就不可以,會出現類型轉化錯誤.而且當源文件名前不加路徑時,默認是在應

用程序的本目錄下.

因為函數返回的是boolean型,所以也可以這樣寫:

if copyfile('d:\yun_yue\sql.txt',pchar(extractfilepath(application.exename) + '2.txt'),true) then

//而且,請確保你的文件路徑正確,否則函數返回失敗.

showmessage('copy file completed!')

else

showmessage('copy file failed!');

copyfile函數還可以用與在網絡鄰居中的文件復制,使用上面的例子,可以將格式改為如下:

if copyfile('\\sh-sfis\yun_yue\yun_yue\copytext.txt',pchar(extractfilepath(application.exename) + '2.txt'),false) then

//此處函數的第三個參數設置成false,會將原來我的應用程序本目錄下存在的'2.txt'文件覆蓋掉

showmessage('copy file completed!')

else

showmessage('copy file failed!');

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/