Bonjour,

J'essaye de créer un vbs pour supprimer des fichiers plus anciens que 100 jours par exemple, dans un dossier.
J'ai trouvé sur le net un script qui le fait très bien et fonctionne parfaitement.
Par contre cela fonctionne uniquement pour les fichiers dans le dossier selectionné, pas dans les sous-dossiers.

J'aimerais que le script passe dans tout le répertoire et sous repertoires, pour faire l'opération de suppression sur tous les fichiers.
J'aimerais aussi qu'un fichier log soit créé avec le listing des fichiers qui ont été supprimés.
Je débute en vbs et ne sait pas du tout comment m'y prendre.

Voici le script :
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'**************************
'Declarations de variables
'**************************
 
'Repertoire ou sont stockees les fichiers
DossierTestAncienFichiers =  "D:\test_del_anciens_fichiers"
 
'Nombre de jours de conservation des Fichiers
AgeMaximalFichiers = 100
 
'Initialisation des objets
Set fso = CreateObject("Scripting.FileSystemObject")
 
'On verifie que le repertoire existe
If (myName = Winrep = fso.FolderExists(DossierTestAncienFichiers)) = False Then
    Erreur = MsgBox("Le Répertoire est introuvable !" )
    Wscript.Quit
End If
 
'On recupere la date système
DateSysteme = Date
 
 
'**************************************
'Suppression des fichiers trop anciens
'**************************************
 
Set Folder = fso.Getfolder(DossierTestAncienFichiers)
For Each File In Folder.Files
   If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
      If File.Attributes And 1 Then File.Attributes = File.Attributes - 1
         File.Delete()
      End If   
Next
Merci d'avance pour vos réponses