clear all;
close all;
clc;

disp('begin');

% 设定文件路径，默认为当前目录
openFolder = ('./');
saveFolder = ('./');

% 文件路径，默认为.mat格式文件
file = dir(fullfile([openFolder,'*.mat']));
if isempty(file)
    disp('No such files, pls check!');
else
    disp(['in total ',num2str(length(file)),' files.']);
end

% 遍历文件
for fileNum = 1:length(file)
    
    fileName = file(fileNum).name;
    
    % 假定只有文件名只有一个连续数字的情况，如COH1，LPV233等等
    isDigit = isstrprop(fileName,'digit');
    folderNum = fileName(isDigit);
    
    % 判断z文件夹是否存在，不存在则创建
    if ~exist([saveFolder,'z',num2str(folderNum)],'dir')
        mkdir([saveFolder,'z',num2str(folderNum)]);
    end
    
    % 复制文件到z文件夹
    disp(['processing file: ',[openFolder,file(fileNum).name],' >> ',...
        [saveFolder,'z',num2str(folderNum)]]);
    copyfile([openFolder,file(fileNum).name],...
        [saveFolder,'z',num2str(folderNum)]);
   
end

disp('done!');

竟然不能使用MATLAB语言！