Sélectionner plusieurs dossiers pour supprimer le contenu

[zizoufan]

Bonjour à tous,

j'utilise le code ci-après pour supprimer les fichiers dont la date de création dépasse les 15 jours.

Dim myFso, myFile, myFolder
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder("C:\Users\PC\Desktop\dupont\")
For Each myFile In myFolder.Files
If DateDiff("d", myFile.Datecreated, Now) > 15 Then myFile.Delete True
Next myFile

Cependant, j'ai plusieurs sous dossiers à analyser. Y-a-t-il une solution pour analyser les différents sous dossiers et appliquer la macro ci-dessous ??

Merci de votre aide précieuse.

 

[Pierrot93]

Re : Sélectionner plusieurs dossiers pour supprimer le contenu

Bonsoir,

regarde peut être ceci :

Dim myFso, myFile, myFolder, ssrepert
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder("C:\Users\PC\Desktop\dupont\")
For Each ssrepert In myFolder.SubFolders
    For Each myFile In ssrepert.Files
        If DateDiff("d", myFile.Datecreated, Now) > 15 Then myFile.Delete True
    Next myFile
Next ssrepert

bonne soirée
@+

 

[zizoufan]

Re : Sélectionner plusieurs dossiers pour supprimer le contenu

Merci beaucoup.