VB - Bestimmtes Dateiattribut entfernen

''' <summary>
''' Diese Funktion entfernt ein bestimmtes Attribut von einer Datei
''' </summary>
''' <param name="FileName">Die Datei von der das Attribut entfernt werden soll</param>
''' <param name="Remove">Das Attribut was entfernt werden soll</param>
Public Sub RemoveAttribute(ByVal FileName As String, ByVal Remove As FileAttribute)
    Dim Attr As FileAttributes
    Attr = File.GetAttributes(FileName)
    File.SetAttributes(FileName, Attr And Not Remove)
End Sub