如何在SAS Studio中复制整个文件夹及创建标准工作文件夹复制宏函数

一、在SAS Studio中复制整个文件夹到另一目录 #

方法1：调用系统命令（Linux/Unix环境适用，SAS Studio主流部署环境） #

SAS Studio通常运行在Linux服务器上，可通过X命令或SYSTASK执行系统递归复制命令，高效完成文件夹复制：

/* 定义源目录和目标目录 */
%let source_dir = "/path/to/source/folder";
%let target_dir = "/path/to/target/folder";

/* 方式1：使用X命令直接执行系统cp命令 */
X "cp -rf &source_dir &target_dir";

/* 方式2：使用SYSTASK（可捕获执行状态，更可控） */
SYSTASK CMD "cp -rf &source_dir &target_dir" STATUS=copy_status;
%put 复制任务状态码：&copy_status; /* 0表示执行成功，非0表示失败 */

注意：若为Windows环境，系统命令替换为xcopy /E /I "source_path" "target_path"，但SAS Studio多数部署在Linux环境，优先推荐上述命令。

方法2：纯SAS代码实现（跨平台兼容） #

通过SAS内置文件操作函数遍历目录结构，逐个复制文件与子目录，无需依赖系统命令：

%macro copy_folder(source=, target=);
    /* 创建目标目录（不存在则自动创建） */
    %sysfunc(dcreate(&target));

    /* 打开源目录 */
    %let dir_id = %sysfunc(dopen(&source));
    %if &dir_id = 0 %then %do;
        %put ERROR: 无法打开源目录 &source;
        %return;
    %end;

    /* 获取源目录下的条目总数 */
    %let num_entries = %sysfunc(dnum(&dir_id));

    /* 遍历所有文件/子目录 */
    %do i = 1 %to &num_entries;
        %let entry_name = %sysfunc(dread(&dir_id, &i));
        %let source_entry = &source/&entry_name;
        %let target_entry = &target/&entry_name;

        /* 判断当前条目是子目录还是文件 */
        %let entry_id = %sysfunc(dopen(&source_entry));
        %if &entry_id > 0 %then %do;
            /* 子目录：递归调用宏复制 */
            %copy_folder(source=&source_entry, target=&target_entry);
            %let rc = %sysfunc(dclose(&entry_id));
        %end;
        %else %do;
            /* 文件：直接复制 */
            %let rc = %sysfunc(fcopy(&source_entry, &target_entry));
            %if &rc ne 0 %then %put WARNING: 文件&source_entry 复制失败，状态码：&rc;
        %end;
    %end;

    /* 关闭源目录 */
    %let rc = %sysfunc(dclose(&dir_id));
%mend copy_folder;

/* 使用示例 */
%copy_folder(source="/aaa/standard_work/standard_work_A", target="/aaa/project_1/standard_work_A");

二、创建按项目类型复制标准工作文件夹的宏函数 #

步骤1：修正并定义标准文件夹路径 #

先修正原代码中的拼写错误（standard_worl_B改为standard_work_B），定义全局宏变量：

%let standard_work_A = "/aaa/standard_work/standard_work_A";
%let standard_work_B = "/aaa/standard_work/standard_work_B";

步骤2：编写宏函数 #

宏函数支持指定项目类型（A/B），自动匹配对应标准文件夹并复制到目标项目目录：

%macro copy_standard_to_project(project_type=, project_folder=);
    /* 参数合法性校验 */
    %if &project_type. = %then %do;
        %put ERROR: 必须指定project_type参数，取值为A或B;
        %return;
    %end;
    %if &project_folder. = %then %do;
        %put ERROR: 必须指定project_folder参数;
        %return;
    %end;

    /* 根据项目类型匹配标准文件夹 */
    %let source_folder = ;
    %if &project_type = A %then %let source_folder = &standard_work_A;
    %else %if &project_type = B %then %let source_folder = &standard_work_B;
    %else %do;
        %put ERROR: project_type仅支持A或B;
        %return;
    %end;

    /* 构建目标路径：保留标准文件夹原名，复制到项目目录下 */
    %let target_folder = &project_folder/%scan(&source_folder, -1, /);

    /* 创建项目目录（不存在则自动创建） */
    %sysfunc(dcreate(&project_folder));

    /* 执行复制：可选择系统命令或纯SAS宏 */
    /* 方式1：Linux系统命令（高效） */
    X "cp -rf &source_folder &target_folder";

    /* 方式2：跨平台纯SAS宏 */
    /* %copy_folder(source=&source_folder, target=&target_folder); */

    %put 操作完成：已将&source_folder 复制到&target_folder;
%mend copy_standard_to_project;

使用示例 #

/* 示例1：将standard_work_A复制到project_1目录 */
%let project_folder = "/aaa/project_1";
%copy_standard_to_project(project_type=A, project_folder=&project_folder);

/* 示例2：将standard_work_B复制到project_2目录 */
%let project_folder_B = "/aaa/project_2";
%copy_standard_to_project(project_type=B, project_folder=&project_folder_B);

内容的提问来源于stack exchange，提问作者Yumeng Xu