function readNewSuperDARNdata(Stations,stationlist,DataFolder)
for i=1:length(stationlist)
disp(Stations{i})
[~,files]= system(['dir /S/B *.',stationlist{i},'.met']);
files = textscan(files, '%s', 'Delimiter', '\n');
Datai=NaN(length(files{1})*24,16);
k=1;
    for j=1:length(files{1})
        NewData=ImportNewSuperDARNdata(files{1}{j});
        if isnan(NewData.data)
        files{1}{j}
        else
            Datai(k:k+size(NewData.data,1)-1,:)=NewData.data;
            k=k+size(NewData.data,1);
        end
    end
    Data=Datai(1:k-1,:);
    save(fullfile(DataFolder,Stations{i},Stations{i}),'Data')
    
end


    
   
