求助,如何将一个文件夹下的文件复制到另一个文件夹下?

Question

求助,在一个文件夹下有多个文件,比如多个图片.现将它们一个一个的复制到另一个文件夹内.
求助各位高手,如何实现啊?

Answer 1

或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:\1.txt','d:\2.txt');
end;

Answer 2

1.自己遍历文件夹,然后逐一CopyFile
2.网上搜索人家写好的函数
3.用系统的xcopy.exe文件,用ShellExecute调用之.SW_HIDE参数隐藏CMD窗口.
4.一时没想出

Answer 3

在delphi中调用 dos拷贝命令，最简单的方法