Me he contestado yo sola, pero hay va eso por si a alguien le hace falta:
para saber los atributos de un archivo hay que utilizar
ok = GetAttr("c:\Borrame.txt") And vbReadOnly
de esta manera ok devulvera 1si el atributo de c:\borrame.txt es de solo
lectura. si devuleve 0 es que no lo es. De esta manera se podrá saber cualquier valor de las siguientes propiedades que aparecen cuando pones el And.
Y para modificar el atributo de un archivo usaremos: