// S.Ayrinhac (2012)
// Fonction recursive
// permet d'acceder à tous les repertoires et sous-repertoires d'un dossier
// Il faut au préalable déclarer une matrice vide listdir et un répertoire path0
// path0='monrepertoire' ; listdir=[]; 
// listdir=opensubdir(S,path0,listdir);

function listdir=opensubdir(dossier,path0,listdir)
    
    //disp(dossier)
    
    S=dir(dossier);
    
    i=find(S.isdir==%T);
    
    
    if length(i)>=1
    for q=1:length(i)
        doss=S.name(i(q));
        listdir=[listdir ; path0+doss+'\'];
        listdir=opensubdir(path0+doss+'\',path0+doss+'\',listdir);
    end
    end
      
endfunction