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!');