Solid Edge Framework Type Library > SolidEdgeInsightXT Object : DoesInsightXTFileExists Method |
A Boolean value. It has following possible values.
Visual Basic |
---|
Public Sub DoesInsightXTFileExists( _ ByVal bstrItemId As String, _ ByVal bstrItemRev As String, _ ByRef bFileExists As Boolean _ ) |
A Boolean value. It has following possible values.
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 FileItemRevID As String Dim FileItemItemID As String Dim bIsFileExists As Boolean FileItemItemID = "009431" FileItemRevID = "A" Call objSolidEdgeInsightXT.DoesInsightXTFileExists(FileItemItemID, FileItemRevID, bIsFileExists) MsgBox (bIsFileExists) Set objSolidEdgeInsightXT = Nothing Set objApplication = Nothing End Sub