Option Explicit
Sub Example()
Dim objApplication As SolidEdgeFramework.Application
Dim objTCE As SolidEdgeFramework.SolidEdgeTCE
Dim FileItemID As String
Dim FileItemRevID As String
Dim FileDataSetName As String
Dim FileRevisionRule As String
Dim FileVariantRule As String
Dim listoffiles As Variant
Set objApplication = GetObject(, "SolidEdge.Application")
Set objTCE = objApplication.SolidEdgeTCE
FileItemID = "020147"
FileItemRevID = "A"
FileDataSetName = "020147.par"
FileRevisionRule = "latest working"
FileVariantRule = ""
Call objTCE.GetListOfIndirectFilesForGivenFile(FileItemID, FileItemRevID, FileDataSetName, FileRevisionRule, FileVariantRule, listoffiles)
If Not objApplication Is Nothing Then
Call objApplication.Quit
End If
Set objTCE = Nothing
Set objApplication = Nothing
End Sub