però la prima dovrebbe funzionare posto un esempio


Dim MyAttr
' Presupposto: per il file FILEPROV è stato impostato
' l'attributo Nascosto.
MyAttr = GetAttr("FILEPROV") ' Restituisce 2.

' Restituisce un valore diverso da zero se l'attributo
' Nascosto è impostato per FILEPROV.
Debug.Print MyAttr And vbHidden

' Presupposto: per il file FILEPROV sono stati
' impostati gli attributi Nascosto e Sola lettura.
MyAttr = GetAttr("FILEPROV") ' Restituisce 3.

' Restituisce un valore diverso da zero se l'attributo
' Nascosto è impostato per FILEPROV.
Debug.Print MyAttr And (vbHidden + vbReadOnly)

' Presupposto: MIADIR è una directory o una cartella.
MyAttr = GetAttr("MIADIR") ' Restituisce 16.