39 lines
1.4 KiB
VB.net
39 lines
1.4 KiB
VB.net
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
|
Imports DigitalData.Modules.EDMI.API.Options
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Namespace Modules.IDB
|
|
Public Class UpdateFile
|
|
Inherits BaseMethod
|
|
|
|
Public Sub New(pLogConfig As LogConfig, pChannel As IEDMIServiceChannel)
|
|
MyBase.New(pLogConfig, pChannel)
|
|
End Sub
|
|
|
|
Public Async Function RunAsync(pFilePath As String, pObjectId As Long, Optional pOptions As UpdateFileOptions = Nothing) As Task
|
|
' Set default options
|
|
If pOptions Is Nothing Then
|
|
pOptions = New UpdateFileOptions()
|
|
End If
|
|
|
|
' Check if file exists
|
|
If IO.File.Exists(pFilePath) = False Then
|
|
Throw New IO.FileNotFoundException("Path does not exist")
|
|
End If
|
|
|
|
' Importing the file now
|
|
Dim oFileProperties = Helpers.GetFileProperties(pFilePath, Date.Now)
|
|
'Dim oFileImportResponse = Await Channel.(New NewFileRequest With {
|
|
' .BusinessEntity = pBusinessEntity,
|
|
' .File = oFileProperties,
|
|
' .KindType = pObjectKind,
|
|
' .StoreName = pObjectStoreName,
|
|
' .User = New UserState With {
|
|
' .Language = pOptions.Language,
|
|
' .UserName = pOptions.Username
|
|
' }
|
|
'})
|
|
End Function
|
|
End Class
|
|
|
|
End Namespace |