Dim LeDossier As String = "" 'Exemple C:\MonDossier
        Dim DateDeCreation As Date = New IO.DirectoryInfo(LeDossier).CreationTime
        Dim AujourdHui As Date = Today
        Dim NombreDeJour As Integer = DateDiff(DateInterval.Day, DateDeCreation, AujourdHui)
        If NombreDeJour >= 8 Then
            Try
                IO.Directory.Delete(LeDossier, True)
            Catch ex As Exception
                MessageBox.Show("Une erreur s'est produite: " & ex.Message)
            End Try
        End If