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 |