Dim rep As String
rep = "C:\"
'exemple d'appel
MsgBox ClearDirectory(rep) & " fichiers ont été effacer dans " & rep
Private Function ClearDirectory(ByVal strPath As String) As Integer
Dim FSO
Dim FI As File
Set FSO = CreateObject("Scripting.FileSystemObject")
'pour chaque fichiers contenu dans le repertoire
For Each FI In FSO.GetFolder(strPath).Files
'si il n'a pas été modifier depuis 7 jours
If (CDate(Format(FI.DateLastModified, "dd/mm/yyyy")) + 7) <= CDate(Format(Date, "dd/mm/yyyy")) Then
'on efface le fichier
FI.Delete
ClearDirectory = ClearDirectory + 1
End If
Next
'destruction des objets
Set FSO = Nothing
Set FI = Nothing
End Function