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
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.