Windows - Una Funzione Per Vericare Gli Attributi Dei File

Visual # La funzione restituisce TRUE se il file passatogli come argomento corrisponde
agli attributi passati anch'essi alla funzione, altrimenti restituisce FALSE
Da richiamare come segue
Flag = IsAttr("C:\MSDOS.SYS", vbSystem + vbHidden)
Function IsAttr(strFile As String, lngAttr As Long) _
As Boolean
On Error Resume Next
IsAttr = ((GetAttr(strFile) And lngAttr) = lngAttr)
End Function