This commit is contained in:
Jonathan Jenne
2020-05-25 13:33:05 +02:00
parent cc8c3527c1
commit 1be142bb97
4 changed files with 66 additions and 53 deletions

View File

@@ -1217,9 +1217,12 @@ Public Class frmIndex
End If
Dim oStreamSuccessful = WINDREAM.NewFileStream(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
Dim oAbsFilename = $"\\windream\objects{CURRENT_NEWFILENAME}"
If File.Exists(oAbsFilename) And oStreamSuccessful Then
LOGGER.Debug("File streamed to Windream: {0}", oStreamSuccessful)
LOGGER.Debug("File exists in Destination: {0}", File.Exists(CURRENT_NEWFILENAME))
LOGGER.Debug("File should be deleted: {0}", CONFIG.Config.DeleteOriginalFile)
If File.Exists(CURRENT_NEWFILENAME) And oStreamSuccessful Then
If CONFIG.Config.DeleteOriginalFile = True Then
Try
My.Computer.FileSystem.DeleteFile(CURRENT_WORKFILE)