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