Imports System.IO
Imports System.Runtime.InteropServices
Module Example
<STAThread()> _
Sub Main()
Dim objApplication As StructureEditor.Application = Nothing
Dim objStructureEditor As StructureEditor.SEECStructureEditor = Nothing
Dim strUserName As String
Dim strPassword As String
Dim strGroup As String
Dim strRole As String
Dim strURL As String
Dim strPrntItemId As String
Dim strPrntItemRev As String
Dim strPrntFileName As String
Dim strRevisionRule As String
Dim strFolderName As String
Dim strItemIdToBeRemoved As String
Dim strItemRevToBeRemoved As String
Dim strFileNameToBeRemoved As String
Try
OleMessageFilter.Register()
' Start structure editor application
objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("StructureEditor.Application"))
objStructureEditor = objApplication.SEECStructureEditor
objApplication.Visible = True
strUserName = "Username"
strPassword = ""
strGroup = ""
strRole = ""
strURL = "http://Servername:8085/tc"
If objStructureEditor.ValidateLogin(strUserName, strPassword, strGroup, strRole, strURL) = 0 Then
strPrntItemId = "012186"
strPrntItemRev = "A"
strPrntFileName = "012186.asm"
strRevisionRule = "Latest Working"
strFolderName = ""
If objStructureEditor.Open(strPrntItemId, strPrntItemRev, strPrntFileName, strRevisionRule, strFolderName) = 0 Then
strItemIdToBeRemoved = "011854"
strItemRevToBeRemoved = "A"
strFileNameToBeRemoved = "011854.par"
objStructureEditor.RemoveItem(strPrntItemId, _
strPrntItemRev, _
strPrntFileName, _
strItemIdToBeRemoved, _
strItemRevToBeRemoved, _
strFileNameToBeRemoved)
End If
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
If Not objApplication Is Nothing Then
' Kill the instance of structure editor created
objApplication.Quit()
End If
OleMessageFilter.Revoke()
End Try
End Sub
End Module