AttribFile

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

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