filesa=dir('CR6RVP_*.csv')
filesa=dir('CR6RVP_*.raw')
for id=1:length(filesa)
    [~,f,ext]=filepaarts(filesa(id).name);
    rename=strcat(f.'_',ext);
    movefile(files(id))