VB - Prüfen ob Dateiattribut vorhanden ist

''' <summary>
''' Diese Funktion prüft ob eine Datei ein bestimmtes Attribut besitzt
''' </summary>
''' <param name="FileName">Die Datei die geprüft werden soll</param>
''' <param name="CheckAttribute">Das zu prüfende Attribut</param>
Public Function IsAttributeGiven(ByVal FileName As String, ByVal CheckAttribute As FileAttribute) As Boolean
    Dim Attr As FileAttributes
    Attr = File.GetAttributes(FileName)
    If (Attr And CheckAttribute) = CheckAttribute Then Return True
End Function