使用copyfile函数，出现“无法复制文件：无法读源文件或磁盘”

Question

怎么办～～～

Answer 1

要么找帮助文件,要么贴出源代码,或是用API

Answer 2

就是用API啊 var
  sfo: TSHFileOpStruct;
begin
  try
    if Source = nil then raise Exception.Create('NULL');
    if DestinationFolder = nil then raise Exception.Create('NULL');
    ZeroMemory(@sfo, SizeOf(TSHFileOpStruct));
    sfo.Wnd:= 0;
    sfo.wFunc:= fo_Copy;
    sfo.pFrom:= PChar(Source + #0);
    sfo.pTo:= PChar(DestinationFolder + #0);
    sfo.fFlags:= fof_NoConfirmation + fof_NoConfirmMkDir + fof_Silent;
    Result:= SHFileOperation(sfo) = 0;
  except
    Result:= False;
  end;

Answer 3

咱不能用呢:我把的代码贴出来楼主看一下吧:ExePath    := ExtractFilePath(Application.Exename)+'数据库模板\Tarmoto.mdb';
  TarExePath := SDG.FileName+lb_TarId.Items.Strings[0]+'='+TemQry3.FieldByName('pact_czdw').AsString+'-'+FormatDateTime('yy-mm-dd-hh-mm-ss',now());  CopyFile(Pchar(ExePath),Pchar(TarExePath+'.mdb'),false);