MS2

app/DD-Record-Organiser/ClassImport_Windream.vb

@@ -300,6 +300,8 @@ Public Class ClassImport_Windream
                 End Select
             Next
             Try
+                'ungültige Zeichen entfernen
+                DATEINAME = ClassHelper.CleanFilename(DATEINAME, "")
                 Dim version As Integer = 2
                 Dim Stammname As String = DATEINAME.Replace(VERSION_DELIMITER, "")
                 Dim _neuername As String = DATEINAME.Replace(VERSION_DELIMITER, "")
@@ -320,6 +322,7 @@ Public Class ClassImport_Windream
                 err = True
             End Try
             CURRENT_NEWFILENAME = _NewFileString & extension
+
             'False oder True zurückgeben
             If err = False Then
                 Return True