Private Sub ValidateObject(ByVal fsi As IO.FileSystemInfo)
         Dim attr As IO.FileAttributes = fsi.Attributes
 
         If IncludeHiddenObjects Then attr = attr And Not _
           IO.FileAttributes.Hidden
         If IncludeReadOnlyFiles Then attr = attr And Not _
         IO.FileAttributes.ReadOnly
 
         If (fsi.Attributes And attr) = attr Then
            ' ...
         End If
      End Sub