文件复制的问题

Question

不可能呀，你用directorylistbox取到edit1.text中看到的
和手工的一样吗？你确认？

Answer 1

procedure TfrmBF.DirectoryListBox1Change(Sender: TObject);
begin
  edit1.Text := trim(DirectoryListBox1.Directory);
  //用trim去掉空格看看；
end;

Answer 2

看一下CopyFiled的帮助，在目标文件路径中一定要包含文件名才能成功。完整的代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
  sFileName:String;
begin
  sFileName:='new.txt';
  if copyfile(PChar('f:\\'+sFileName),Pchar(DirectoryListBox1.Directory+sFileName),false) then
    showmessage('数据备份成功！')
  else
    ShowMessage('数据备份失败！');
end;

Answer 3

看一下CopyFiled的帮助，在目标文件路径中一定要包含文件名才能成功。完整的代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
  sFileName:String;
begin
  sFileName:='new.txt';
  if copyfile(PChar('f:\\'+sFileName),Pchar(DirectoryListBox1.Directory+sFileName),false) then
    showmessage('数据备份成功！')
  else
    ShowMessage('数据备份失败！');
end;