Bonjour à tous,
j'utilise le code ci-après pour supprimer les fichiers dont la date de création dépasse les 15 jours.
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.
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.