Option Explicit
Sub Example()
Dim objApplication As SolidEdgeFramework.Application
Dim objTCE As SolidEdgeFramework.SolidEdgeTCE
Dim FileItemRevID As String
Dim FileItemItemID As String
Dim bIsFileExists As Boolean
Set objApplication = GetObject(, "SolidEdge.Application")
Set objTCE = objApplication.SolidEdgeTCE
FileItemItemID = "009431"
FileItemRevID = "A"
Call objTCE.DoesTeamCenterFileExists(FileItemItemID, FileItemRevID, bIsFileExists)
If Not objApplication Is Nothing Then
Call objApplication.Quit
End If
Set objTCE = Nothing
Set objApplication = Nothing
End Sub