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.
In Vba/VB6 use
File_Attr = GetAttr("C:\temp\test.ipt")
File_Attr = System.IO.File.GetAttributes("C:\temp\test.ipt")
If File_Attr = 1 Or File_Attr = 33 Then
Msgbox ("the file is Read only")
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