From 80c143c160c67ab3d351cb2741c52805b57b5ea6 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 29 May 2020 10:57:18 +0200
Subject: [PATCH] remove obsolete code in name_generieren

---
 Global_Indexer/frmIndex.vb | 34 ----------------------------------
 1 file changed, 34 deletions(-)

diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index 8a06c44..9a8c917 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -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