文件复制问题

Question

请问各位高手可否留下一个文件复制的程序，先谢了

Answer 1

copyfile，具体用法见下：http://expert.csdn.net/Expert/topic/1217/1217499.xml?temp=.1345484
http://expert.csdn.net/Expert/topic/1225/1225130.xml?temp=.9217798
http://expert.csdn.net/Expert/topic/1379/1379283.xml?temp=.6265833
http://expert.csdn.net/Expert/topic/1379/1379306.xml?temp=.5951807搜索一下，还有更多 ~

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
   if CreateDir('c:\Test3') then
      ShowMessage('目录成功的创建')
   else
      ShowMessage('指定目录无法创建');
end;end.