MS Integration Services und fileOps

EDMI_ClientSuite/frmFileTest.vb

@@ -0,0 +1,27 @@
+Imports DigitalData.Modules.EDMIFileOps
+Public Class frmFileTest
+    Private _fileOp As FileOp
+    Private Sub frmFileTest_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            _fileOp = New FileOp(MyLogConfig, My.Settings.EDM_NetworkService_Adress)
+
+        Catch ex As Exception
+            MyLogger.Warn($"Unexpected error in frmFileTest_Load: {ex.Message}")
+        End Try
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oDialog = New OpenFileDialog()
+        Dim oResult = oDialog.ShowDialog()
+
+        If oResult <> DialogResult.OK Then
+            Exit Sub
+        End If
+        Dim oFileID = _fileOp.New_EDMI_File(oDialog.FileName, Environment.UserName)
+
+
+
+
+    End Sub
+End Class