I'm developing a routine to change file propertites on open files. The file property changes won't be saved if the file is read-only and the file is read-only if it exists in the Vault but is not checked out.
Correction to your code. File_Attr should be a number (not a String), I think all Enums are Longs. Also, your IF test expression only works if read-only is the only attribute set or if read-only and archive are the only two attributes set. My IF test expression below, returns if read-only is set, no matter what the other Attributes are set to.
Dim File_Attr As Long If File_Attr And 1 Then MsgBox("the file is Read only") Else MsgBox("the file is NOT Read only") End If
The no. 33 If I remember right, if the inventor file is used in shared project and set to reservedforwrite and read-only
Access a broad range of knowledge to help get the most out of your products and services.