Come verificare gli attributi di un file

Un funzione VB per verificare gli attributi di un file:

La funzione restituisce TRUE se il file passatogli come argomento corrisponde agli attributi passati anch'essi alla funzione, altrimenti restituisce FALSE

Function IsAttr(strFile As String, lngAttr As Long) As Boolean
On Error Resume Next
IsAttr = ((GetAttr(strFile) And lngAttr) = lngAttr)
End Function

Da richiamare come segue:

Dim Flag As Boolean
'Controllo se il file "C:\MSDOS.SYS" ha settati gli attributi Sistema
' (vbSystem) e Nascosto (vbHidden).
'Gli altri attributi sono Normale (vbNormal) e SoloLettura (vbReadOnly)
Flag = IsAttr("C:\MSDOS.SYS", vbSystem + vbHidden)

Testato su: Windows 98, Windows Me, Windows 2000 Professional