我使用CopyFile函数进行文件拷贝,当拷贝到桌面上时候,提示正确拷贝,可就是没有见到拷贝的文件:
我的源代码部分如下:
Try
Path:=GetCurrentDir+'\clgl_db.Dat';
CopyFile(PChar(Path),PChar(eptPath.Text),False);
Showmessage('成功')
Except
ShowMessage('失败')
End
目标文件是通过对话框中任意选择,当源文件和目标文件处在同一个盘符下,就没有问题,否则
就会出问题,报出了“成功”,但就是无法得到目标文件。
请问各位大虾,这是什么问题呢?
我的源代码部分如下:
Try
Path:=GetCurrentDir+'\clgl_db.Dat';
CopyFile(PChar(Path),PChar(eptPath.Text),False);
Showmessage('成功')
Except
ShowMessage('失败')
End
目标文件是通过对话框中任意选择,当源文件和目标文件处在同一个盘符下,就没有问题,否则
就会出问题,报出了“成功”,但就是无法得到目标文件。
请问各位大虾,这是什么问题呢?
解决方案 »
- 7年了,现在终于能做好数据库项目了.写了个框架,开发两层快如飞,想和大家交流下.
- 请问如何做到这样加密的效果
- 如何知道一个程序中有多少个FORM????急,急,在线等.....
- 简单问题:MDI子窗口的关闭与打开以及两个窗口平铺
- 如何获取指定进程的程序路径?
- 第一届Borland中国程序员设计大奖赛8月10日开战
- 高分奖励,答对有分!!!!
- 再问一个很菜的问题,Alignment我不会用,请问怎么用?真是不好意思,我真没在书上找到。
- 请教各位大师一个问题?以下代码总是出错,请多多指正,谢谢!!!
- 怎样制作浮动工具栏?
- 急盼高手帮忙!!!! 我最近做了一个题库系统,试题采用TRxRichedit控件进行录入和查看,问一下,TRxRichedit显示的公式怎么可以垂直居中排列呢?
- 急!为什么RichEdit中的CFM_HIDDEN(隐藏)没有效果,象其他的CFM_STRIKEOUT(删除线)却有效果,我用的是RichEdit3.0版本。
Try
Path:=GetCurrentDir+ '\clgl_db.Dat ';
Showmessage( 'GetCurrentDir是'+GetCurrentDir);// 在这里插入这段代码,看看GetCurrentDir代表的路径是什么!估计和eptPath.Text一样
CopyFile(PChar(Path),PChar(eptPath.Text),False);
Showmessage( '成功 ')
Except
ShowMessage( '失败 ')
End
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Reset();
LZCopy();//copy content
CloseFile();