TDirectory.Copy复制文件

描述：复制文件夹以及文件夹下的内容

procedure Copy(const SourceDirName, DestDirName: string)

参数一：源文件夹

参数二：目标文件夹

所在单元：System.IOUtils

代码部分

procedure TForm1.Button_CopyClick(Sender: TObject);

begin

    try

        TDirectory.Copy(Edit_Source.Text, Edit_Dest.Text);

    except

        MessageDlg('无效的源目录或目标目录', mtError, [mbok], );

        Exit;

    end;

end;