Module Module1
'1. Make sure that "VFileComAPI.exe" has been referenced in the project
'2. Create an instance of the API
Dim Visualfiles As New VisualfilesComAPI.Connection
Sub Main()
Dim args as string() = command.Split(",")
Dim OpenCaseValue as string = args(1)
Dim ConnectTo as string = args(0)
Dim L_RESULT As String
Dim L_APICALL As String
L_APICALL = Visualfiles.Connect(ConnectTo)
L_RESULT = Visualfiles.OpenCase(OpenCaseValue, "")
L_APICALL = Visualfiles.Disconnect(False, "")
Visualfiles = Nothing
End Sub
End Module
|