CopyFile函数

关注

原创最新推荐文章于 2026-06-30 12:10:05 发布 1k 阅读 AI 写同款· GEO 优化 ›

CopyFile 使用方法 CopyFile复制文件 BOOL CopyFile(LPCTSTR lpExistingFileName,LPCTSTR lpNewFileName,BOOL bFailIfExists ); 返回值说明：调用成功，返回非零值调用失败，返回零值，并且设置GetLastError（）参数说明： 1.LPCSTR lsExiststringFilename 将要拷贝的文件名 2.LPCSTR lpNewFilename 新的目标文件名 3.BOOL bFailIfExists 有两种情况如果设阅读详情

CopyFile函數,文件拷贝函数.其基本結構如下:
copyfile(
            lpcstr     lpexistingfilename,         //     源文件路径
            lpcstr     lpnewfilename,                   //新文件路径
            bool     bfailifexists                         //为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!');