AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Push Windream

Browse Source
This commit is contained in:
SchreiberM 2022-12-09 13:30:44 +01:00
parent 078282c579
commit 7b7b17b657
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Windream/Windream.vb
View File

@ -704,7 +704,8 @@ Public Class Windream
End Try
End Function
Public Function NewFileStream(ByVal FilenameSource As String, ByVal FilenameTarget As String) As Boolean
Public Function NewFileStream(ByVal FilenameSource As String, ByVal FilenameTarget As String, ByVal WMObjecttypeName As String) As Boolean
NewDocumentID = 0
Dim oExtension As String = Path.GetExtension(FilenameSource)
@ -776,6 +777,10 @@ Public Class Windream
_logger.Debug("Closing Stream")
oWMStream.Close()
_logger.Debug("Saving new object")
oWMObject.aObjectType = GetObjectByName(WMObjecttypeName, WMEntityObjectType)
oWMObject.Save()
_logger.Debug("Unlocking new object")
oWMObject.unlock()