我使用CopyFile函数进行文件拷贝,当拷贝到桌面上时候,提示正确拷贝,可就是没有见到拷贝的文件:
我的源代码部分如下:
  Try
     Path:=GetCurrentDir+'\clgl_db.Dat';
    CopyFile(PChar(Path),PChar(eptPath.Text),False);
    Showmessage('成功')
  Except
    ShowMessage('失败')
  End
  目标文件是通过对话框中任意选择,当源文件和目标文件处在同一个盘符下,就没有问题,否则
就会出问题,报出了“成功”,但就是无法得到目标文件。
  请问各位大虾,这是什么问题呢?

解决方案 »

  1.   

    看来你对GetCurrentDir还是不了解,试验下面代码:
     Try 
         Path:=GetCurrentDir+ '\clgl_db.Dat '; 
        Showmessage( 'GetCurrentDir是'+GetCurrentDir);// 在这里插入这段代码,看看GetCurrentDir代表的路径是什么!估计和eptPath.Text一样
        CopyFile(PChar(Path),PChar(eptPath.Text),False); 
        Showmessage( '成功 ') 
      Except 
        ShowMessage( '失败 ') 
      End 
      

  2.   

    楼主为什么不把Path、eptPath.Text查看一下,看是否正确。路径对不对楼主都不知道。
      

  3.   

    If the function succeeds, the return value is nonzero.
    If the function fails, the return value is zero. To get extended error information, call GetLastError.
      

  4.   

    AssignFile();
    Reset();
    LZCopy();//copy  content
    CloseFile();
      

  5.   

    当然你需要两个文件,一个源文件,一个目标文件(用来放copy 内容)