Dim d As New IO.DirectoryInfo(Tools.RootDirectory & "Debug")
If Not d.Exists Then Exit Sub
 
For Each fi As IO.FileInfo In d.GetFiles("*.dbg")
            If DateAndTime.DateDiff(DateInterval.Day, fi.LastWriteTime, Now) _
              > Days Then
                fi.Attributes = IO.FileAttributes.Normal
                fi.Delete()
            End If
Next