MS

app/DD-Record-Organiser/ClassHelper.vb

@@ -50,4 +50,33 @@ Public Class ClassHelper
         End If
         Return inuse
     End Function
+    Public Shared Function Versionierung_Datei(Dateiname As String)
+        Dim extension
+        Dim _NewFileString
+        Try
+            Dim version As Integer = 1
+
+            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname)
+            extension = Path.GetExtension(Dateiname)
+
+            Dim _neuername As String = Stammname
+            'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
+            'Überprüfen ob File existiert
+            If File.Exists(_neuername & extension) = False Then
+                _NewFileString = _neuername
+            Else
+                Do While File.Exists(_neuername & extension)
+                    version = version + 1
+                    _neuername = Stammname & "~" & version
+                    _NewFileString = _neuername
+                Loop
+            End If
+            Return _NewFileString & extension
+        Catch ex As Exception
+            ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
+            Return ""
+        End Try
+
+    End Function
 End Class