Compare commits

...

2 Commits

Author SHA1 Message Date
Jonathan Jenne
9f49fa3900 Version 2.5.0.11 2022-02-16 16:03:06 +01:00
Jonathan Jenne
09f1684d81 clean up files properly 2022-02-16 16:02:59 +01:00
3 changed files with 17 additions and 15 deletions

View File

@@ -42,6 +42,19 @@ Public Class ClassFileHandler
End Try
End Function
Public Sub Clear_Tempfiles()
For Each oFile In TempFiles
Try
System.IO.File.Delete(oFile)
Catch ex As Exception
Logger.Error(ex)
End Try
Next
TempFiles.Clear()
End Sub
Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean
Try
''TODO: Before doing anything, clean the filename

View File

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")>
<Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("2.5.0.10")>
<Assembly: AssemblyTrademark("2.5.0.11")>
<Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.5.0.10")>
<Assembly: AssemblyVersion("2.5.0.11")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

View File

@@ -269,7 +269,7 @@ Public Class frmStart
If IO.File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
Open_IndexDialog()
Else
Throw New FileNotFoundException("Dropped file does not exist anymore!")
LOGGER.Warn("Trying to index non-existent file [{0}]", CURRENT_WORKFILE)
End If
' If multi-indexing is active, all files have been indexed by now, so we can leave the loop
@@ -285,7 +285,7 @@ Public Class frmStart
Finally
' Clear all temp files after indexing
Clear_Tempfiles()
FILE_HANDLER.Clear_Tempfiles()
EMAIL.Clear_TempFiles()
FileDrop.RemoveTempDirectory()
@@ -565,17 +565,6 @@ Public Class frmStart
End Sub
#End Region
Private Sub Clear_Tempfiles()
'TempDateien löschen
For Each oFile In FILE_HANDLER.TempFiles
Try
System.IO.File.Delete(oFile)
Catch ex As Exception
LOGGER.Error(ex)
End Try
Next
End Sub
Sub Open_IndexDialog()
Try
Hide()