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

Add Sequence Field, dont delete source files on error

Browse Source
This commit is contained in:
Jonathan Jenne
2021-06-09 16:13:14 +02:00
parent d96469941b
commit 86bdb0c545
6 changed files with 458 additions and 210 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Global_Indexer/frmIndex.vb
View File

@@ -1257,17 +1257,6 @@ Public Class frmIndex
_Logger.Debug("Checks for file [{0}]", oTempPath)
_Logger.Debug("File streamed to Windream: {0}", oStreamSuccessful)
_Logger.Debug("File exists in Destination: {0}", File.Exists(oTempPath))
_Logger.Debug("File should be deleted: {0}", CURR_DELETE_ORIGIN)
If File.Exists(oTempPath) And oStreamSuccessful Then
If CURR_DELETE_ORIGIN = True Then
Try
My.Computer.FileSystem.DeleteFile(CURRENT_WORKFILE)
Catch ex As Exception
_Logger.Error(ex)
End Try
End If
End If
Return oStreamSuccessful
Catch ex As Exception
@@ -1290,12 +1279,15 @@ Public Class frmIndex
CURRENT_NEWFILENAME = neuername
Loop
End If
'Die Datei wird nun verschoben
If CURR_DELETE_ORIGIN = True Then
My.Computer.FileSystem.MoveFile(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
Else
My.Computer.FileSystem.CopyFile(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
End If
'Die Datei wird nun an den neuen Ort kopiert
My.Computer.FileSystem.MoveFile(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
'If CURR_DELETE_ORIGIN = True Then
' My.Computer.FileSystem.MoveFile(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
'Else
' My.Computer.FileSystem.CopyFile(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
'End If
Dim Insert_String As String
Try
@@ -2197,6 +2189,17 @@ Public Class frmIndex
_Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.")
Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID
ClassDatabase.Execute_non_Query(oDEL, True)
If CURR_DELETE_ORIGIN = True Then
_Logger.Info("Datei [" & CURRENT_WORKFILE & "] wird gelöscht.")
Try
System.IO.File.Delete(CURRENT_WORKFILE)
Catch ex As Exception
_Logger.Error(ex)
End Try
_Logger.Info("Datei [" & CURRENT_WORKFILE & "] wurde gelöscht.")
End If
Return True
End If