File Container, Prepare Import for Marvman

EDMI_ClientSuite/ClientSuite.vbproj

@@ -368,9 +368,9 @@
       <Project>{44982F9B-6116-44E2-85D0-F39650B1EF99}</Project>
       <Name>Config</Name>
     </ProjectReference>
-    <ProjectReference Include="..\EDMI_FILE_OPs\EDMIFileOps.vbproj">
+    <ProjectReference Include="..\EDMI_FILE_OPs\EDMIAPI.vbproj">
       <Project>{5b1171dc-fffe-4813-a20d-786aae47b320}</Project>
-      <Name>EDMIFileOps</Name>
+      <Name>EDMIAPI</Name>
     </ProjectReference>
     <ProjectReference Include="..\Filesystem\Filesystem.vbproj">
       <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>

EDMI_ClientSuite/frmFileTest.vb

@@ -1,8 +1,10 @@
-Imports DigitalData.Modules.EDMIFileOps
+Imports System.IO
+Imports DigitalData.Modules.EDMIFileOps
+Imports DigitalData.Modules.Filesystem
 Imports DigitalData.Modules.Logging
 
 Public Class frmFileTest
-    Private _fileOp As FileOp
+    Private _fileOp As Document
     Private _Logger As Logger
 
     Public Sub New()
@@ -13,7 +15,7 @@ Public Class frmFileTest
 
     Private Sub frmFileTest_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
-            _fileOp = New FileOp(My.LogConfig, My.Settings.EDM_NetworkService_Adress)
+            _fileOp = New Document(My.LogConfig, My.Settings.EDM_NetworkService_Adress)
 
         Catch ex As Exception
             _Logger.Warn($"Unexpected error in frmFileTest_Load: {ex.Message}")
@@ -27,9 +29,19 @@ Public Class frmFileTest
         If oResult <> DialogResult.OK Then
             Exit Sub
         End If
-        Dim oFileID = Await _fileOp.New_EDMI_File(oDialog.FileName, Environment.UserName)
 
-        MsgBox(oFileID)
-        ListBox1.Items.Add(oFileID)
+        Try
+            Dim oDocObject = Await _fileOp.ImportFileAsync(oDialog.FileName)
+
+            If oDocObject.OK = False Then
+                MsgBox(oDocObject.ErrorMessage)
+                Exit Sub
+            End If
+
+            ListBox1.Items.Add(oDocObject)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            _Logger.Error(ex)
+        End Try
     End Sub
 End Class