Question

delphi copyfile 问题

procedure TForm1.Button1Click(Sender: TObject);
var path,newpath:string;
begin
path:='d:\a.txt' ;
newpath:='d:\back\a.txt' ;

if CopyFile(pChar(path),pChar(ExtractFilePath(newpath) ),false) then showmessage('备份成功')
else showmessage('备份失败');
end;
提示备份失败,为什么会失败,高手指导下

Answer 1

问题出在，多加了ExtractFilePath（）
ExtractFilePath是取文件路径。ExtractFilePath（newpath）结果为 'd:\back\'，当然会返回错误了！

正确写法如下：
procedure TForm1.Button1Click(Sender: TObject);
var path,newpath:string;
begin
path:='d:\a.txt' ;
newpath:='d:\back\a.txt' ;

if CopyFile(pChar(path),pChar(newpath),false) then showmessage('备份成功')
else showmessage('备份失败');
end;