Le Blog de Maxwell

Supprimer les fichiers de plus de 5 jours

// octobre 17th, 2009 // VBScript

Dim Fso, Directory, Modified, Files
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Directory = Fso.GetFolder("rep_a_traiter")
Set Files = Directory.Files

For Each Modified in Files
   If DateDiff("D", Modified.DateLastModified, Now) >= 5 Then Modified.Delete
Next