Discussion :

[retraite83]

Bonjour,

j'ai un dossier SAVE qui contient chaque jour la sauvegarde de classeurs excels

Chaque jour le sous dossier est généré via le planificateur de taches Windows (et contient les fichiers sauvés) sous la forme SAVE/Save jj-mm-aaaa

Je veux écrire une macro qui va supprimer les anciennes sauvegardes jusqu'à une date donnée.

Mon problème est de récupérer un par un le nom des sous dossiers pour voir s'ils sont éligibles à la suppression (puis les supprimer)

Je ne trouve pas vraiment mon bonheur dans mes recherches (via la fonction DIR ?)

[mat955]

Bonjour,

Avec le code ci-dessous, tu peux scanner un dossier et ses sous-dossier pour faire des actions sur chaque dossiers/sous-dossiers.

C'est une procédure récursive, qui parcourt tous les fichiers d'un répertoire donné en paramètre, puis tous les dossiers.
Et pour chaque dossier, la procédure s'appelle elle-même en prenant comme répertoire paramètre le répertoire détecté, et ainsi de suite...

Voici le code que j'ai simplifié pour l'exemple, à adapter.
Tu constateras que je récupérais uniquement le nom des fichiers/dossiers, mais tu peux récupérer le chemin entièrement.
Dans ton cas, tu peux te passer de scanner les fichier, et te concentrer sur les sous-dossiers.
Après si ton but est de supprimer des sous-dossier, tu peux utiliser la fonction kill par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File
Dim NbFichiers As Integer, NbDossiers As Integer
 
Public Sub scan(ByVal dossier As Folder)
 
    For Each fichier In dossier.Files
        ActiveCell.Value = Right(fichier, Len(fichier) - InStrRev(fichier, "\", InStrRev(fichier, "\")))
        ActiveCell.Offset(1, 0).Select
        NbFichiers = NbFichiers + 1
    Next
 
    For Each sousdossier In dossier.SubFolders
        ActiveCell.Value = Right(sousdossier, Len(sousdossier) - InStrRev(sousdossier, "\"))
        ActiveCell.Offset(1, 0).Select
        Call scan(sousdossier)
    Next
 
End Sub

Il me semble de mémoire qu'il faut ajouter la référence externe : Microsoft Scripting Runtime. A tester sans et avec pour voir.

[retraite83]

Merci je m'en suis sorti mais dans ma boucle les 2 premiers sous-dossiers trouvés dans le dossier maître s'appellent :

. pour le premier

"" pour le second

D'où peuvent venir ces répertoires (non visibles avec Exporateur Windows)

[Patrice740]

Bonjour,

.. désigne le répertoire parent
. désigne le repertoire racine.

[retraite83]

Merci c'est bon