Remove old export function

app/ClassWMResulthandler/clsDateiverarbeitung.vb

@@ -208,7 +208,7 @@ Public Class clsDateiverarbeitung
         Return Path.Combine(BasePath, oFilename)
     End Function
 
-    ' Aktuelle Funktion 25.03.19
+    ' Alte Funktion 25.03.19
     'Public Function Export_WMFile2HDD(oWMFile As WMObject, MyExportpath As String)
     '    Try
     '        If Not MyExportpath.EndsWith("\") Then
@@ -265,67 +265,6 @@ Public Class clsDateiverarbeitung
     '    End Try
     'End Function
 
-
-    'Kopiert die übergebene Datei in den Zielpfad
-    'Public Function Export_File(oWMFile As WMObject, oZielpfad As String)
-    '    Try
-    '        If Not oZielpfad.EndsWith("\") Then
-    '            oZielpfad = oZielpfad & "\"
-    '        End If
-    '        Dim oNewFilename As String
-    '        Logger.Info("Verarbeitung von Datei: " & oWMFile.aName)
-    '        oNewFilename = CleanInput(oWMFile.aName)
-    '        'Die Quelle zusammensetzen
-    '        Logger.Debug("PFAD: " & clsCURRENT.WDLAUFWERK & ":" & oWMFile.aPath & "\" & oWMFile.aName)
-    '        'Dim Quelle As String = IO.Path.GetDirectoryName(WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
-
-    '        Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO 
-    '        Logger.Debug("ExportFileIO erzeugt.....")
-    '        ' Stream Interface bereitstellen
-    '        oWMFile.LockFor(WMObjectEditModeFileSystem)
-    '        Try
-    '            If Not oWMFile.aLocked Then
-    '                oWMFile.lock()
-    '            End If
-    '        Catch ex As Exception
-    '            Logger.Error(ex) 'clsLogger.AddError("Unvorhergesehener Fehler beim Lock-Vorgang: " & ex.Message, "clsDV.Export_File")
-    '            Return False
-    '        End Try
-
-    '        Dim oWMStream = oWMFile.OpenStream("BinaryObject", WMObjectStreamOpenModeReadWrite)
-    '        '### VERSIONIERUNG ###
-    '        Dim version As Integer = 2
-    '        'Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(Quelle)
-    '        Dim oFilename = oWMFile.aName.Substring(0, oWMFile.aName.LastIndexOf("."))
-    '        Dim oExtension = oWMFile.aName.Substring(oWMFile.aName.LastIndexOf("."))
-    '        Dim oTempFilename As String = oZielpfad & oFilename & oExtension
-    '        'Überprüfen ob File existiert
-    '        Do While IO.File.Exists(oTempFilename) = True
-    '            oTempFilename = oZielpfad & oFilename & "_" & version & oExtension
-    '            version = version + 1
-    '        Loop
-    '        Logger.Debug("Zieldateiname: " & oTempFilename)
-    '        ' den Dateiinhalt der neuen Datei zuweisen
-    '        ExportFileIO.aWMStream = oWMStream
-    '        ExportFileIO.bstrOriginalFileName = oTempFilename
-    '        'Das eigentliche kopieren
-    '        ExportFileIO.ExportOriginal(True)
-    '        ' close the windream file stream
-    '        oWMStream.Close()
-    '        oWMFile.Save()
-    '        oWMFile.unlock()
-    '        clsCURRENT.EXPORTED_FILENAME = oTempFilename
-    '        Logger.Info("Datei erfolgreich nach '" & oTempFilename & "' kopiert.")
-    '        aktfile_Exportresult = oTempFilename
-    '        clsCURRENT.TEMP_FILES.Add(oTempFilename)
-    '        Return True
-    '    Catch ex As Exception
-    '        'bei einem Fehler einen Eintrag in der Logdatei machen
-    '        Logger.Warn($"Unexpected in Export-File: [{oWMFile.aName}]...")
-    '        Logger.Error(ex)
-    '        Return False
-    '    End Try
-    'End Function
     Public Function Rename_File(WMFile As WMObject, konvention As String)
         Try
             Logger.Debug("Konvention: '" & konvention & "'")