EDMI: final changes to Client

GUIs.ZooFlow/frmtest.vb

@@ -95,17 +95,13 @@ Public Class frmtest
     End Sub
 
     Private Async Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
-        Dim oResult As Object
-
         If OpenFileDialog1.ShowDialog() <> DialogResult.OK Then
             Exit Sub
         End If
 
         txtFile2Import.Text = OpenFileDialog1.FileName
 
-
-
-        oResult = Await My.Application.Service.Client.NewFileAsync(
+        Dim oResult As FileMeta = Await My.Application.Service.Client.NewFileAsync(
             txtFile2Import.Text,
             Environment.UserName,
             Date.Now,
@@ -116,7 +112,7 @@ Public Class frmtest
             }
         )
 
-        MsgBox($"File saved to: [{oResult}]")
+        MsgBox($"File saved to: [{oResult.FilePath}]")
         'oResult = Await My.Application.Service.Client.ImportFileObjectAsync(oContents, My.Application.User.UserName, txtIDB_OBJ_ID.Text, 1, txtIDBFOPath.Text)
 
     End Sub