Script pour fichiers vieux de 30 jours

Bonjour à tous,
Voici le script que j'utilise pour le moment pour effacer tous mes fichiers plus vieux que 30 jours.
Mon problème maintenant c'est de faire fonctionner le script dans un dossier qui a des sous-dossiers et des sous-dossiers, mon script ne marche pas dans les sous-dossiers.
Comment faire pour que mon script passe par tous les sous dossiers et efface les fichiers de plus de 30 jours.

Merci de l'aide.

Code:

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
35
Option Explicit
on error resume next
 Dim oFSOLog
 Dim oFSOProc
 Dim sDirectoryPathLog
 Dim sDirectoryPathProc
 Dim oFolderlog
 Dim ofolderProc
 Dim oFileCollectionlog
 Dim oFileCollectionProc
 Dim oFile
 Dim iDaysOld
 
'Modifier chaque dossier pour Client FTP
 iDaysOld = 30
 Set oFSOLog = CreateObject("Scripting.FileSystemObject")
 sDirectoryPathLog = "C:\Users\Christopher\Desktop\test1"
  set oFolderLog = oFSOLog.GetFolder(sDirectoryPathLog)
 set oFileCollectionLog = oFolderLog.Files
 
'Si fichiers plus vieux que 30 jours ils seront effaces.
 For each oFile in oFileCollectionLog
  If oFile.DateLastModified < (Date() - iDaysOld) Then
   oFile.Delete(True)
  End If
 Next
 
'Clean up
 Set oFSOLog = Nothing
 Set oFSOProc = Nothing
 Set oFolderLog = Nothing
 Set oFolderProc = Nothing
 Set oFileCollectionLog = Nothing
 Set oFileCollectionProc = Nothing
 Set oFile = Nothing