怎么样复制一个文件到别发目录下

Question

例如：
  我的c盘的根目录下有一个名称为1.doc的文件
我想把它复制到e盘
 我点以下复制，进行的动作是复制
 我在点以下粘帖，则完成操作，
各位大侠，帖出点代码，让我参考以下
谢谢了

Answer 1

var
  fs: SHFILEOPSTRUCT;
begin
  fs.hwnd := 0;
  fs.wFunc := FO_COPY  ;
  fs.pFrom := 'c:\windows\command'; // 目录名
  fs.pTo := 'd:\';
  fs.fFlags := FOF_SILENT;
  fs.fAnyOperationsAborted := False;
  fs.hNameMappings := 0;
  fs.lpszProgressTitle := '';
  SHFileOperation(@fs);
end;

Answer 2

参考Procedure FileCopy( Const sourcefilename, targetfilename: String );
Var
  S, T: TFileStream;
Begin
  S := TFileStream.Create( sourcefilename, fmOpenRead );
  //生成文件流
  try
    T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
    try
      T.CopyFrom(S, S.Size ) ;
      //复制文件
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
  FileCopy('c:\2.ico','d:\tt.ico');
end;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Directory:='d:\test8';
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to FileListBox1.Items.Count-1 do
  begin
    copyfile(pchar(FileListBox1.Directory+'\'+FileListBox1.Items[i]),pchar('d:\temp\'+FileListBox1.Items[i]),false);
  end;
end;

Answer 4

楼主是想将文件复制到剪切板，再粘贴到指定路径，像Ctrl+C Ctrl+V那样吧？关注

Answer 5

楼上说的对，我的目的就是像
Ctrl+C Ctrl+V