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