Discussion :

[Vadorblanc]

Bonjour
Cette macro supprime tous les fichiers du dossier selon une date et je souhaiterais qu'elle boucle aussi sur les sous dossiers de façon à supprimer aussi les fichiers des sous dossiers.
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim myFso, myFile, myFolder
Set myFso = CreateObject("Scripting.FileSystemObject")
'sélection du dossier à analyser
Set myFolder = myFso.GetFolder("C:\XXX\")
'boucle sur tous les fichier du dossier
For Each myFile In myFolder.Files
    'si la date de modification du fichier est antérieure à 1 jours, effacer le fichier
    If DateDiff("d", myFile.DateLastModified, Now) > 1 Then myFile.Delete True
Next myFile
End Sub

[mercatog]

D'une manière récursive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supprime(dossier As String)
Dim myFso As Object, myFile As Object, myFolder As Object, SubFolder As Object
Set myFso = CreateObject("Scripting.FileSystemObject")
 
Set myFolder = myFso.GetFolder(dossier)
For Each myFile In myFolder.Files
     If DateDiff("d", myFile.DateLastModified, Now) > 1 Then myFile.Delete True
Next myFile
 
For Each SubFolder In myFolder.subfolders
     Supprime SubFolder.Path
Next SubFolder
Set myFolder = Nothing
End Sub

[Vadorblanc]

Bonjour mercatog
Merci pour ton code, mais faut-il ajouter outils / Référence ? car rien ne se passe, je n'ai pas la main pour activer le module.
Merci

[mercatog]

C'est une procédure paramétrée
crée une autre procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub test()
Supprime "C:\XXX"
'ou Call Supprime("C:\XXX")
end sub

[Vadorblanc]

Mercatog
j'ai une erreur d'exécution 28
Espace pile insuffisant
et une ligne en jaune dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Supprime SubFolder.Path

Merci

[mercatog]

Tu dois avoir un très grand dossier avec beaucoup de sous dossiers ou fichiers. c'est la limite de la méthode.

[Vadorblanc]

Mercatog
J'ai fait une bêtise, tout fonctionne maintenant, c'est super tout marche bien.
Un grand Merci à toi, faut que je fasse attention à ce code car il est destructeur...hou là là...
Bien cordialement