First I save my most current files in a list:
i=1 for(i in i:length(lista_pasta)){ caminhoX <- sprintf("V:/Planejamento/%s/Programação/%s/%s",ano,