37 lines
1.1 KiB
VB.net
37 lines
1.1 KiB
VB.net
Imports DigitalData.Modules.EDMIFileOps
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class frmFileTest
|
|
Private _fileOp As FileOp
|
|
Private _LogConfig As LogConfig
|
|
Private _Logger As Logger
|
|
|
|
Public Sub New(LogConfig As LogConfig)
|
|
InitializeComponent()
|
|
|
|
_LogConfig = LogConfig
|
|
_Logger = LogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Private Sub frmFileTest_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Try
|
|
_fileOp = New FileOp(_LogConfig, My.Settings.EDM_NetworkService_Adress)
|
|
|
|
Catch ex As Exception
|
|
_Logger.Warn($"Unexpected error in frmFileTest_Load: {ex.Message}")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Async 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 = Await _fileOp.New_EDMI_File(oDialog.FileName, Environment.UserName)
|
|
|
|
MsgBox(oFileID)
|
|
ListBox1.Items.Add(oFileID)
|
|
End Sub
|
|
End Class |