fileList = dir('C:\Users\DELL\Desktop\un\helen\untrain_txt\*.jpg');
sourcePath = 'C:\Users\DELL\Desktop\un\helen\untrain_txt\';  
targetPath = 'C:\Users\DELL\Desktop\data\data1\helen\train\';  

%newname = cell(46,1);
img = cell(46,1);
for k = 1 : length(fileList)  
    newname{k}= fileList(k).name(1:end-4);
    fopen([sourcePath,'\',newname{k},'.txt'],'a');
    %%讀取所有檔案
    %file_name{k}=fileList(k).name;
    %img{k}= imread(strcat('C:\Users\DELL\Desktop\un\helen\untrain_txt\',file_name{k}));
    k
end