fns?=?'*.bmp';?%?擴展名?
%?
fdt?=?dir([pth?fns]);%?調入此路徑下的指定擴展名文件
for?k?=?1:length(fdt)
fn?=?fdt(k).name;
if?~isdir(fn)%?檢驗是否目錄,是目錄跳過
dd?=?fn(1);?%?文件名的第壹個字符作為目錄名
if?isempty(dir([pth?dd]))%?檢驗目錄是否建立
mkdir([pth?dd]);%?建立目錄
end
ofn?=?[pth?fn];?%?源文件全路徑名
nfn?=?[pth?dd?'\'?fn];?%?目標文件全路徑名
copyfile(ofn,nfn);?%?拷貝文件
delete(ofn);%?刪除源文件
end
end