Bonjour a tous , je vient encore pour demander de l'aide

j'avais deja poster a ce sujet mais je suis en train de l'ameliorer pour traiter les S/dossiers et fichiers dans les s/dossiers.

jai fait une recuscive mais sa n'a pas lair de marcher, je n'arrive pas a faire un e recurcive qui tienne la route


voila mon code:
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
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
ShowSubFiles FSO.GetFolder("C:\rrdtool")
ShowSubfolders FSO.GetFolder("C:\rrdtool")
 
 
Sub ShowSubFiles(Folder)
    For Each objFile in Folder.SubFolders
        Set f = fso.GetFile(objfile)
            If DateDiff("D", objfile.DateLastModified, now) > 10 Then
               objFSO.DeleteFile f, force = yes
            end if
        ShowSubFiles Subfolder
    Next
End Sub
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        If DateDiff("D", subfolder.DateLastModified, now) > 10 Then
           objFSO.DeleteFolder subfolder, force = yes
        End If
        ShowSubFolders Subfolder
    Next
End Sub
pour info voila mon code de depart
il efface tt les fichier et dossier dans un dossier defini mais sans chercher
plus bas dans l'arboresence

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
 
 
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   set folder = FSO.GetFolder ("D:\SV_PERSO")
   Set Dossiers = fso.GetFolder(folder)
   Set fic = Dossiers.Files
 
    For Each subfolders in folder.subfolders
        If DateDiff("D", subfolders.DateLastModified, now) > 10 Then
        objFSO.DeleteFolder subfolders, force = yes
        End If
    Next
 
 
    For Each objFile in fic
        Set f = fso.GetFile(objfile)
            If DateDiff("D", objfile.DateLastModified, now) > 10 Then
            objFSO.DeleteFile f, force = yes
            end if
    next
merci d'avance