复制文件的问题，用copyfile覆盖一个已在的文件同名文件无法覆盖,也不出错

Question

急

Answer 1

最后一个参数设为false,也不行按帮助上说的设为false后可以的啊

Answer 2

CopyFile(pchar(sTempFileName),pchar(sSaveFile),false);可以啊。

Answer 3

一个文件复制的例子：
var
s2,d2:string;
begin
s2:='c:\公文\file2.val'；
d2:=s2;
//使用前要：table1.Database.Close;
//          table1.Active:=false;//////切记if (Length(s2)<=0)OR(Length(d2)<=0) then Exit;
try
  if Not(table1.Active) then begin
  sS := TFileStream.Create(s2,fmOpenRead);  //fmsharedenynone
  d2:='d:\公文\file2.val';
  try sD := TFileStream.Create(d2, fmOpenWrite or fmCreate);
    try sD.CopyFrom(sS, sS.Size);
    finally sD.Free;
    end;
  finally sS.Free;
  end;
 end;
except
showmessage('文件打开错误');
end;

Answer 4

改文件属性FileSetAttr(filename, faArchive);