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 strItemId As String
Dim strItemRev As String
Dim strFileName As String
Dim strRevisionRule As String
Dim strFolderName As String
Dim strItemIdToBeAdded As String
Dim strItemRevToBeAdded As String
Dim strFileNameToBeAdded 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
strItemId = "012186"
strItemRev = "A"
strFileName = "012186.asm"
strRevisionRule = "Latest Working"
strFolderName = ""
If objStructureEditor.Open(strItemId, strItemRev, strFileName, strRevisionRule, strFolderName) = 0 Then
strItemIdToBeAdded = "011854"
strItemRevToBeAdded = "A"
strFileNameToBeAdded = "011854.par"
objStructureEditor.AddNewItem(strItemIdToBeAdded, strItemRevToBeAdded, strFileNameToBeAdded)
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