MS_2911

app/DD-Record-Organiser/ClassWindream.vb

@@ -669,6 +669,8 @@ Public Class ClassWindream
     End Function
     Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False)
         Try
+            Dim extension As String = Path.GetExtension(filenameQuelle)
+            Dim _stammname
             aktWMObject = Nothing
             If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
             If IsNothing(oSession) Then
@@ -678,7 +680,7 @@ Public Class ClassWindream
             End If
 
             Dim sdsd = WMEntityFolder
-           
+
 
             Const STREAM_BinaryObject = "BinaryObject"
 
@@ -745,6 +747,28 @@ Public Class ClassWindream
                     ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
                     If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
                     Err.Clear()
+                    Dim msg = "Eine Datei mit identischem Namen existiert bereits! Wollen Sie die bestehende Datei ersetzen?"
+                    If USER_LANGUAGE <> "de-DE" Then
+                        msg = "Ther is already a file with the same name! Would You like to replace the file?"
+                    End If
+                    Dim result As MsgBoxResult
+                    result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    If result = MsgBoxResult.Yes Then
+                        WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
+                    Else
+                        Dim FILE_EXISTS_IN_WD = True
+                        Dim version As Integer = 2
+
+                        _stammname = endgültigerDateiname.Replace(extension, "")
+                        _stammname = endgültigerDateiname.Replace("~", "")
+                        Dim _neuername As String
+                        Do While FILE_EXISTS_IN_WD = True
+                            _neuername = _stammname & "~" & version
+                            FILE_EXISTS_IN_WD = ClassWindream.oSession.WMObjectExists(WINDREAMLib.WMEntity.WMEntityDocument, _neuername & extension, 0, 0)
+                            Version = Version + 1
+                        Loop
+                        endgültigerDateiname = _neuername & extension
+                    End If
 
                     WMObject = oSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
                     If Err.Number > 0 Then
@@ -754,7 +778,7 @@ Public Class ClassWindream
                     If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False)
                 End If
             End If
-           
+
             If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
             If WMObject IsNot Nothing Then
                 ' lock object for file system access (to change the file itself)