Dim MiAtrib
' Se supone que el archivo PRUEBA tiene el atributo oculto activado.
MiAtrib = GetAttr("PRUEBA") ' Devuelve 2.
' Devuelve distinto de cero si el archivo PRUEBA tiene el atributo de oculto.
Debug.Print MiAtrib And vbHidden
' Se supone que el archivo PRUEBA tiene activados los ' atributos de oculto y sólo-lectura.
MyAttr = GetAttr("TESTFILE") ' Devuelve 3.
' Devuelve distinto de cero si el atributo oculto está ' activado en PRUEBA
Debug.Print MiAtrib And (vbHidden + vbReadOnly)
' Se supone que MIDIR es un directorio o una carpeta.
MiAtrib = GetAttr("MYDIR") ' Devuelve 16.