1
2
3
4
5
6
7
8
9
10
|
''' <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
|