Dans l'objectif de renommer des fichiers présent dans des sous dossier j'ai utilisé ce script.
Code : Tout sélectionner
setwd("C:/Users/jfuse/Desktop/04 - Copie/BL20220416")
#ici le chemin correspond à un sous-dossier "jour" et l'idée est de répéter l'opération pour chaque sous- dossier jours compris dans un dossier "mois"
files.old <- list.files(path = "C:/Users/jfuse/Desktop/04 - Copie/BL20220416")
add_prefix <- function(x, path = basename(normalizePath(".")), sep = "_"){
paste(path, x, sep = sep)
}
add_prefix(files.old)
files.new <-add_prefix(files.old)
file.rename(files.old, files.new)
L'idée est de faire figurer le nom du dossier parent (comprenant la date) dans le nom de chaque fichier du dossier.
Cependant ce script ne fonctionne que pour un sous dossier (correspondant à un jour) et il me faut répéter l'opération pour chaque sous dossier(jours) d'un dossier (mois). je dois renommer les fichiers de toute une année et donc répéter théoriquement l'opération 365 fois. Je souhaite donc inclure dans le script une boucle le faisant répéter l'opération dans un sous dossier puis de passer au suivant et donc automatiser le script par mois.
Je n'ai malheureusement pas trouvé de réponse dans les discussions existantes bien que je n'ai pas pu chercher de manière très approfondie par manque de temps (ou de technique je débute sur ce forum). Si la réponse existe je m'en excuse d'avance.
Merci d'avance pour vos réponse
Bien cordialement