function tnp_makedb(datapath, wordname)

%datapath : path of the database 
%wordname : name of number (ex : 'un', 'deux')

freq=16e3;

uiwait (msgbox(strcat('Vous avez 20 secondes apres avoir clique sur ok pour dire le plus de fois possible le chiffre:', wordname, ' en marquant une pause entre deux saisies')));

snd = wavrecord(freq * 20, freq);

% Cut voice into words
words = tnp_cut(snd(100:length(snd)));

mkdir(strcat(datapath, wordname));

if (length(words) >= 10)
    for i=1:10
        filename = sprintf('%s%s\\%s%d.wav', datapath, wordname, wordname, i - 1);
        delete (filename);
        wavwrite(words{i}, freq, filename);
    end
else
    msgbox(strcat('Erreur moins de 10 mots ont ete reconnus, reajustez vos paramtres micro et marquez des pauses plus importantes. Nombres de mots reconnus : ', int2str(length(words))));
end