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 |