ZooFlow: Update Zooflow Form, Globix Tweaks

GUIs.ZooFlow/frmtest.vb

@@ -93,4 +93,36 @@ Public Class frmtest
 
         File.Copy(txtIDBFOPath.Text, oFile)
     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
+
+        Using oStream As New FileStream(txtFile2Import.Text, FileMode.Open, FileAccess.Read)
+            Using oMemoryStream As New MemoryStream
+                oStream.CopyTo(oMemoryStream)
+                Dim oContents As Byte() = oMemoryStream.ToArray()
+
+                oResult = Await My.Application.Service.Client.ImportFileAsync(
+                    txtFile2Import.Text,
+                    Environment.UserName,
+                    Date.Now,
+                    "WORK",
+                    1,
+                    "DEFAULT",
+                    New Client.ImportFileOptions With {
+                        .KeepExtension = True
+                    }
+                )
+
+                MsgBox($"File saved to: [{oResult}]")
+                'oResult = Await My.Application.Service.Client.ImportFileObjectAsync(oContents, My.Application.User.UserName, txtIDB_OBJ_ID.Text, 1, txtIDBFOPath.Text)
+            End Using
+        End Using
+    End Sub
 End Class