Solid Edge Framework Type Library > SolidEdgeInsightXT Object : IsInsightXTFileCheckedOut Method |
Visual Basic |
---|
Public Function IsInsightXTFileCheckedOut( _ ByVal bstrFilename As String _ ) As Integer |
Returns an integer value ‘iCheckedOut’ specifying whether the file is checked out to current user or another user or not checked out to any user.
The value of the element ‘iCheckedOut’ can be as follows:
Private Sub Command1_Click() On Error Resume Next Dim objApplication As SolidEdgeFramework.Application Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT Set objApplication = GetObject(, "SolidEdge.Application") Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT Dim FileName As String Dim iCheckedOut As Integer FileName = "F:\009431.par" iCheckedOut = objSolidEdgeInsightXT.IsInsightXTFileCheckedOut(FileName) MsgBox (iCheckedOut) Set objSolidEdgeInsightXT = Nothing Set objApplication = Nothing End Sub