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], 0);
        Exit;
    end;
end;