Nettoyer un Dossier sur Critères

Solutions Développées sous VBA
Verrouillé
admin
Site Admin
Site Admin
Messages : 342
Enregistré le : 04 oct. 2020, 20:48

Nettoyer un Dossier sur Critères

Message par admin »

~ ~ ~ ~ ~ ~ ~ ~
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
    • /!\ Attention, il vous faudra également Exploser, Imploser pour la manipulation sécurisée des noms de fichiers.
  • 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.
  • 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
Suivi des évolutions:
  • 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...
Verrouillé