If attr = allowedAttributes Then

    Private Sub ValidateObject(ByVal fsi As IO.FileSystemInfo, ByVal _
      allowedAttributes As IO.FileAttributes, ByVal includeHiddenObjects As _
      Boolean, ByVal includeReadOnlyFiles As Boolean)
 
        Dim attr As IO.FileAttributes = fsi.Attributes
 
        If includeHiddenObjects Then
            attr = attr And Not IO.FileAttributes.Hidden
        End If
 
        If includeReadOnlyFiles Then
            attr = attr And Not IO.FileAttributes.ReadOnly
        End If
 
        If attr = allowedAttributes Then
            Debug.WriteLine(fsi.Name & " " & fsi.Attributes.ToString())
        End If
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist