Discussion :

[qmike]

Bonjour à tous
le script suivant me permet de supprimer les fichiers du jour les plus anciens de + de 4 heures.

Code :

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

1
2
3
4
5
6
7
8
For Each sbFold In Folder.Subfolders
       For Each File In sbFold.Files 
 
           if DateDiff ("H", File.DateLastModified, now)> 4 then
	      File.Delete
           End If
       Next 
    next

Comment supprimer les fichiers de plus de 4 heures 30
Merci pour vos réponses

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
Dim Talon
Talon = Now - CDate("04:30:00")
For Each sbFold In Folder.Subfolders
       For Each File In sbFold.Files
            If File.DateLastModified < Talon Then File.Delete
       Next
Next

[qmike]

bonjour
Un grand merci pour cette réponse je teste et te tiens au courant

[pitchalov]

Bonjour,

Autre possibilité en utilisant votre premier code (utilisation de DateDiff avec les minutes) :

Code :

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

1
2
3
4
5
6
For Each sbFold In Folder.Subfolders
	For Each File In sbFold.Files
		'Si le fichier n'a pas été modifié depuis 270 min (4H30), on le supprime
		If DateDiff("n", File.DateLastModified, now)> 270 Then File.Delete
	Next 
Next

Bonne continuation

[qmike]

bonjour
Un grand merci à tous les deux
cela fonctionne à merveille