Supprimer fichiers tous les 4 heures 30

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

Code:

---

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

Salut

Code:

---

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

---

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

Bonjour,

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

Code:

---

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

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