Source with attachment
' Add reference to "Solid Edge Install Data Type Library (SEInstallData.dll)"
' Add reference to "Windows Scripting Host Object Model"
Sub Demo()
Call OpenInReport("C:\Program Files (x86)\Solid Edge ST3\Training\Coffee Pot.asm")
End Sub
Sub OpenInReport(strFile As String)
Dim objInstallData As SEInstallDataLib.SEInstallData
Dim objFSO As IWshRuntimeLibrary.FileSystemObject
Dim objShell As IWshRuntimeLibrary.wshShell
Dim strInstallPath As String
Dim strReportPath As String
Dim strCommand As String
Set objFSO = New IWshRuntimeLibrary.FileSystemObject
Set objInstallData = New SEInstallData
Set objFSO = New IWshRuntimeLibrary.FileSystemObject
Set objShell = New IWshRuntimeLibrary.wshShell
strInstallPath = objInstallData.GetInstalledPath
strReportPath = objFSO.BuildPath(strInstallPath, "report.exe")
strCommand = """" & strReportPath & """ """ & strFile & """" ' God I hate VB!
objShell.Run strCommand
Set objFSO = Nothing
Set objShell = Nothing
Set objInstallData = Nothing
End Sub