Matlab - Leer todos los archivos de una carpeta

fid = fopen(cvgtr50_roa_ptb57.329);

d = textscan(fid,'%*d %*s %*d %*d %*d %f %f %*d %*d %f %s');

fclose(fid);

elv1=d{:,1};

elv2=d{:,2};

dif=d{:,3};

c1=d(:,1);

i=1;

j=length(elv1);

while i<=j

elvme(i)=((elv1(i)+elv2(i))/2);

i=i+1;

end

path='C:\'; % ruta, si es la actual  poner path=pwd

ext='.pdf'; % extension, si no se desea filtrar por extension poner ext=''

ar=ls(path);

 for j=1:size(ar,1)

   cn=ar(j,:);

   [~,~,ex]=fileparts(cn);

    %isdir(cn)

   if (and(~isdir(fullfile(path,cn)),or(strcmpi(strtrim(ex),ext),isempty(ext))))

       disp(cn)

       %%%% aca iria el programa principal

       %%%% fid = fopen(fullfile(path,cn));

       %%%% etc

   end

 end

path=pwd;

ext=' ';

ar=ls(path);

 for j=1:size(ar,1)

   cn=ar(j,:);

   [~,~,ex]=fileparts(cn);

    %isdir(cn)

   if (and(~isdir(fullfile(path,cn)),or(strcmpi(strtrim(ex),ext),isempty(ext))))

       disp(cn)

       %promedio

d=fopen(fullfile(path,cn));

elv1=d(:,6); % el error que me da es : Attempted to access d(:,6); index out of bounds because numel(d)=1. Error in pruebadeabrirtodo (line 13)

elv1=d(:,6);

elv2=d(:,7);

dif=d(:,10);

c1=d(:,11);

i=1;

j=length(elv1);

while i<=j

elvm(i)=((elv1(i)+elv2(i))/2);

i=i+1;

end

   end

 end

path=pwd; %'C:\'; % ruta si es la actual  poner path=pwd

ext='.328'; % extension si no se desea filtrar por extension poner ext=''

ar=ls(path);

for j=1:size(ar,1)

    cn=ar(j,:);

    [~,~,ex]=fileparts(cn);

    if (and(~isdir(fullfile(path,cn)),or(strcmpi(strtrim(ex),ext),isempty(ext))))

        disp(fullfile(path,cn))

        filename = fullfile(path,cn);

        formatSpec = '%3f%3s%6f%7f%4f%4f%5f%12f%12f%12f%f%[^\n\r]';

        fileID = fopen(filename,'r');

        dataArray = textscan(fileID, formatSpec, 'Delimiter', '', 'WhiteSpace', '',  'ReturnOnError', false);

        fclose(fileID);

        datos = dataset(dataArray{[1:end-1]});

        clearvars formatSpec fileID dataArray ans;

        % las columnas 1 a 5 son las originales

        % en la columna 6 esta el promedio de las columnas 6 y 7

        % en las columnas 7 a 10 estan las antiguas columnas 8 a 11

        mean67=dataset(mean(double([datos(:,6) datos(:,7)]),2),'VarNames','p67');

        datos_new=[datos(:,1:5) mean67 datos(:,8:11)];

        export(datos_new,'file',strcat(filename, 'n'),'Delimiter','\t','WriteVarNames',false)

    end

end

ext='';