文件备份
我想把EDIT1。TEXT路径中显示的文件，备份到edit2.text中显示的路径下？
请问怎么样做？
begin
try
if Edit2.Text <> ' ' then
begin
copyfile(pchar(Edit1.Text),pchar(Edit2.Text),true);
application.MessageBox(pchar( '备份成功! '+#13), 'XGY ',mb_ok+mb_iconinformation);
end;
except
begin
application.MessageBox(pchar( '备份失败! '+#13), ' XGY ',mb_ok+mb_iconwarning);
abort;
end;
备份不过去。请问是什么原因？
[解决办法]
我用你的代码测试成功。看一下你两个Edit中的路径是否带文件名（或通配符）。
其实可以简化一下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit2.Text <> ' ' then
if copyfile(pchar(Edit1.Text),pchar(Edit2.Text),true) then
application.MessageBox(pchar( '备份成功! '+#13), 'XGY ',mb_ok+mb_iconinformation)
else
application.MessageBox(pchar( '备份失败! '+#13), ' XGY ',mb_ok+mb_iconwarning);
end;
[解决办法]
可以备份
[解决办法]
只是猜测路径的事,还有就是你目标有没有让人家放东西,是2003?`
