Question

我用delphi做一个小的实验，就是复制文件，可是，复制老是不成功是怎么回事啊？

图片就是上面截的那个，从编辑框可以获取到路径，然后判断进行复制，不知道为什么就是不成功
这是复制按钮的代码
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit1.Text:=directorylistbox1.Directory;
edit2.Text:=directorylistbox2.Directory;
if FileExists(edit2.Text) then
CopyFile(PChar(edit2.Text),PChar(edit1.Text),false);
end;

Answer 1

程序没问题，但看你的图发现原始路径和目标路径一样，文件复制不允许自身拷贝；如果改进程序，就判断一下路径是否一致，一致时拒绝执行，给个提示更好。

追问

这是默认的，是可以改的，但就是运行没效果，怎么办？

追答

抱歉，前一次还是看漏了，CopyFile只能复制文件，不能复制文件夹，你传的参数是个文件夹，
应该逐一传入全路径文件名。

如此看来，你的任务还是个挺复杂的活儿，若还需递归子目录，就更复杂了，大致方法有二：
1、写一个某目录下的文件的函数，需要调用FindFirstFile和FindNext，可以实现递归。
2、参考一下ShellAPI单元的SHFileOperation函数，查MSDN，我看应该支持目录拷贝和递归。

Answer 2

CopyFile('原文件','目标文件',False);
就可以了

Answer 3

贴出你的代码。

Answer 4

看看是不是文件被读取并且没有被释放