Vous voulez Nettoyer facilement un dossier (répertoire et ses sous-répertoires) de ses fichiers sur critères (type, âge).
La solution est ici: Nettoyage_Dossier (clic-droit, enregistrer sous)
Mode d'emploi:
- Intégrer la source fournie dans votre code
- Faire l'appel à la fonction : Nettoyage_Dossier (x_LeDossier, Opt. x_LeType, Opt. x_LAge, Opt. x_DosVide)
- valeur = Nettoyage_Dossier(x_LeDossier) :
- L'objet répertoire, et ses sous-répertoires sont vidés de tous leurs fichiers.
- les sous-répertoires vidés complètement sont supprimés.
- valeur contiendra le nombre d'objets (dossiers et fichiers) supprimés.
- valeur = Nettoyage_Dossier(x_LeDossier, "pdf") :
- Se comportera comme attendu;
- mais seuls les fichiers ayant comme extension celle fournie (ici ".pdf") seront supprimés
- valeur = Nettoyage_Dossier(x_LeDossier, "pdf", 60) :
- Se comportera comme précédemment;
- Mais seuls les fichiers qui ont plus de 60 jours seront supprimés.
- valeur = Nettoyage_Dossier(x_LeDossier, "*", -30 , x_DosVide:=true) :
- Se comportera comme attendu;
- mais seuls les fichiers de moins de 30 jours seront supprimés. Les dossiers vidés complètement ne sont pas supprimés.
- valeur = Nettoyage_Dossier(x_LeDossier) :
- Où :
- x_LeDossier = Objet pointant sur le Dossier à traiter.
- x_LeType = chaine de caractère (sans joker) contenant l'extension concernée par le traitement.
- x_LAge = âge en jour des fichiers qui sont à supprimer : de (-) de / tous (0 jour) / de (+) de.
- x_DosVide = Conserve les Dossiers vides (si vrai), par défaut les supprime
- 2013.02.16 (v1.00) Création initiale, nettoie le dossier sur critère de type et d'âge.
- 2021.03.20 (v1.10) Remplacement des fonctions kill() et rmdir() non fonctionnelles parfois Et refonte complète pour ajouter la Compatibilité Office 2019 et Excel 17.
- 2022.01.15 (v1.20) Possibilité de conserver des dossiers vides et Retourne le nombre d'éléments effacés
- 2022.03.04 (v1.21) Améliore la gestion des extensions et différencie ceux sans extension
Enfin un Nettoyage sécurisé sur critère...