Private Sub ValidateObject(ByVal fsi As IO.FileSystemInfo)
         Dim allowedAttributes As IO.FileAttributes
 
         If IncludeHiddenObjects Then allowedAttributes = allowedAttributes Or _
           IO.FileAttributes.Hidden
         If IncludeReadOnlyFiles Then allowedAttributes = allowedAttributes Or _
         IO.FileAttributes.ReadOnly
 
         If (fsi.Attributes And allowedAttributes) = allowedAttributes Then
            ' Methode aufrufen und fsi übergeben
         End If
 
      End Sub