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)

        MsgBox(oFileID)
        ListBox1.Items.Add(oFileID)

    End Sub
End Class