remove obsolete code in name_generieren

This commit is contained in:
Jonathan Jenne 2020-05-29 10:57:18 +02:00
parent 6d0810d285
commit 80c143c160

View File

@ -623,40 +623,6 @@ Public Class frmIndex
'CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(NewFileString, "")
CURRENT_NEWFILENAME = Path.Combine(oRAWZielordner, CURRENT_NEWFILENAME)
'If CURRENT_NEWFILENAME.EndsWith("_") Then
' CURRENT_NEWFILENAME = CURRENT_NEWFILENAME.Substring(0, CURRENT_NEWFILENAME.Length - 1)
'End If
'If CURRENT_NEWFILENAME.StartsWith("_") Then
' CURRENT_NEWFILENAME = CURRENT_NEWFILENAME.Substring(1)
'End If
'If CURRENT_NEWFILENAME.Contains("__") Then
' CURRENT_NEWFILENAME = CURRENT_NEWFILENAME.Replace("__", "_")
'End If
''CURRENT_NEWFILENAME &= extension
'Dim sollfilename = System.IO.Path.GetFileName(CURRENT_NEWFILENAME)
'If sollfilename.StartsWith("_") Then
' sollfilename = sollfilename.Substring(1)
' Dim _path = System.IO.Path.GetDirectoryName(CURRENT_NEWFILENAME)
' CURRENT_NEWFILENAME = _path & "\" & sollfilename
'End If
'Dim path = System.IO.Path.GetDirectoryName(CURRENT_NEWFILENAME)
'If folder_Created = False Then
' ' Den Zielordner erstellen
' If Directory.Exists(path) = False Then
' Try
' 'Try to create the directory.
' Directory.CreateDirectory(path)
' Catch ex As Exception
' LOGGER.Info("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")")
' LOGGER.Error(ex.Message)
' err = True
' MsgBox("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", MsgBoxStyle.Critical)
' End Try
' End If
' folder_Created = True
'End If
'False oder True zurückgeben
LOGGER.Debug("#### ENDE Name_Generieren ####")
LOGGER.Debug("")
If err = False Then