matlab把一个目录下的图片缩放到指定大小

%把一个目录下的图片缩放到指定大小
dpath = 'D:\tst测试工作\测试文件\清晰照片库1300张';
lst = dir(dpath);
cnt = 0; 
for i=1:length(lst)
    if isdir(lst(i).name)
        continue; 
    end 
    tpath = [lst(i).folder,'\', lst(i).name];
    im=imread(tpath); 
    [m,n,c]=size(im); 
    if m < 1 || n < 1
        fprintf('bad image, %s\n', tpath); 
        continue;
    end 
    if m<500 || n<500 
        cnt = cnt+1;
         fprintf('%d, small image,(%d,%d), %s\n', cnt, m,n, tpath); 
        x= min(m,n);
        ratio = 505 / x; 
        im=imresize(im, ratio);  
        imwrite(im, tpath); 
    end     
end