Modul Module1
'1. überprüfen, ob „VFileComAPI.exe“ im Projekt bezogen worden
'2. verursachen einen Fall der API
Schwaches Visualfiles als neues VisualfilesComAPI.Connection
Vorhauptleitung ()
Schwache args als Schnur () = Befehl. Spalte („, ")
Schwaches OpenCaseValue als Schnur = args (1)
Schwaches ConnectTo als Schnur = args (0)
Schwaches L_RESULT als Schnur
Schwaches L_APICALL als Schnur
L_APICALL = Visualfiles.Connect (ConnectTo)
L_RESULT = Visualfiles.OpenCase (OpenCaseValue, "")
L_APICALL = Visualfiles.Disconnect (falsch, "")
Visualfiles = nichts
Enden-Unterseeboot
Enden-Modul
|