寻求Inno脚本实现：弹窗获取源文件夹，代码指定目标路径复制文件夹

你之前用FileCopy失败的核心原因是这个函数仅支持单个文件复制，要复制整个文件夹及其内容，得用DirCopy函数配合文件夹选择对话框实现。下面是完整的可行脚本，附带关键说明：

完整脚本示例 #

[Setup]
AppName=文件夹复制工具
AppVersion=1.0
DefaultDirName={pf}\FolderCopyTool
OutputDir=Output
; 如果目标路径需要管理员权限（比如C盘系统目录），添加下面一行
; PrivilegesRequired=admin

[Code]
procedure InitializeWizard;
var
  SourceFolder: String;
  TargetFolder: String;
begin
  // 设定固定目标路径，替换成你实际需要的路径
  TargetFolder := 'C:\Your\Fixed\Target\Directory';

  // 弹出文件夹选择对话框，让用户选择源文件夹
  if BrowseForFolder('请选择要复制的源文件夹', '', SourceFolder, False) then
  begin
    // 递归复制源文件夹到目标路径，True表示覆盖已存在的文件/子文件夹
    if DirCopy(SourceFolder, TargetFolder, True) then
    begin
      MsgBox('文件夹复制完成！', mbInformation, MB_OK);
    end
    else
    begin
      MsgBox('复制失败，请检查路径权限或是否有文件被占用。', mbError, MB_OK);
    end;
  end
  else
  begin
    MsgBox('未选择源文件夹，操作已取消。', mbInformation, MB_OK);
  end;
end;

关键细节说明 #

• 文件夹选择：BrowseForFolder函数负责弹出系统风格的文件夹选择对话框，参数依次为：对话框标题、初始显示路径（空则显示默认位置）、返回选中的路径变量、是否允许用户新建文件夹（这里设为False限制仅选择已有文件夹）。
• 文件夹复制：DirCopy是递归复制整个文件夹的核心函数，会自动复制源文件夹下所有文件、子文件夹及嵌套内容；第三个参数设为True会覆盖目标路径中已存在的同名文件/文件夹。
• 权限处理：如果目标路径是系统目录（如C:\Program Files），需要在[Setup]段添加PrivilegesRequired=admin，确保安装程序拥有写入权限。
• 路径自动创建：如果目标路径不存在，DirCopy会自动创建该路径，无需额外调用CreateDir函数。

内容的提问来源于stack exchange，提问作者Vishnu kumar