Untitled

%let input_folder  = C:\xpt_files;
%let output_folder = C:\sas_datasets;

/* Use a DIR command to list *.xpt files in the folder */
filename xptlist pipe "dir /b ""&input_folder.\*.xpt""";

data _null_;
    length xptfile $256;
    infile xptlist truncover;
    input xptfile $256.;

    /* For each .xpt file, create the libnames and run PROC COPY */
    call execute(cats(
        'libname xptfile xport "', 
           "&input_folder.\", 
           xptfile, 
           '";',
        ' libname sasout "', 
           "&output_folder.", 
           '";',
        ' proc copy in=xptfile out=sasout memtype=data;',
        ' run;',
        ' libname xptfile clear;',
        ' libname sasout clear;'
    ));
run;