function [] = Reader(folder)

    global l;
    l={};
    listFolder(folder,0);
    data_g=struct; % structure qui va contenir les informations
    
    disp(num2str(numel(l)));
    for m=1:numel(l)
        d=[l{m} '/'];
        t=dir ([d 'pdflow_cloud*']); %contenu du répértoire

        [lg, r]=size(t);
        
        expr='/';
        tok = regexp(d, expr,'split');
        
        nom=tok{end-2}; % nom à utiliser pour le stochage dans la structure
        seq=tok{end-1}; % Code séquence de la structure --> L_1 = Left/1_1

        disp(['Génération de ' nom ' ' seq]);

        for j=1:lg

            % Génerer l'image
            disp(['  Image ' num2str(j) ': ' t(j).name]);
            i=GenPict([d t(j).name], 320, 240);

            % Génére image MotionFlow
            cname=regexprep([d t(j).name], 'cloud', 'results');
            disp(['    Motion flow ' num2str(j) ': ' cname]);
            ci=GenPict(cname, 320, 240);

            % Récupérer les coordonnées de l'enveloppe convexe
            disp('    Réctangle englobant');
            [ x1, y1, x2, y2 ]=EnvConv(i);
            env=i(x1:x2,y1:y2,:);
            cenv=ci(x1:x2,y1:y2,:);

            disp('  Ajoute à la structure');
            idseq=['L_' num2str(seq)];
            data_g.(nom).(idseq).CP.(['CP' num2str(j)])=env;
            data_g.(nom).(idseq).MF.(['MF' num2str(j)])=cenv;
        end
    end
    save([folder '/Data_' nom '.mat'], 'data_g');
    disp(['Fichier sauvegarder à l adresse suivante: ' folder '/Data_' nom '.mat']);
end