：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语言！