Windream: Version 1.9.2.0

Windream/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Modules.Windream")>
 <Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("1.9.1.0")>
+<Assembly: AssemblyTrademark("1.9.2.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.9.1.0")>
+<Assembly: AssemblyVersion("1.9.2.0")>
-<Assembly: AssemblyFileVersion("1.9.1.0")>
+<Assembly: AssemblyFileVersion("1.9.2.0")>

Windream/Windream.vb

@@ -1510,27 +1510,11 @@ Public Class Windream
             Return False
         End Try
     End Function
-    Public Function VersionWMFilename(pPath As String, pExt As String)
-        Return _fileSystem.GetVersionedFilename(pPath)
 
-        'Dim rNewFilepath As String = pPath
+    Public Function VersionWMFilename(pPath As String, pExt As String)
-        'pPath = GetNormalizedPath(pPath)
+        Return _fileSystem.GetVersionedFilenameWithFilecheck(pPath, AddressOf TestFileExists)
-        'Dim oPath = pPath.Substring(0, pPath.LastIndexOf("\"))
-        'Dim oFilename = pPath.Substring(pPath.LastIndexOf("\") + 1, pPath.Length - pPath.LastIndexOf("\") - 1)
-        'Dim oCheck = oFilename
-        'Dim oSplit As List(Of String) = oFilename.Split("~").ToList()
-        'oFilename = oFilename.Replace(pExt, "")
-        'Dim oCount As Integer = 2
-        'Do While TestFileExists(rNewFilepath) = True
-        '    oFilename = oFilename.Replace(pExt, "")
-        '    Dim oVersion = "~" + (oCount - 1).ToString
-        '    oFilename = oFilename.Replace(oVersion, "")
-        '    oFilename = oFilename & "~" & oCount & pExt
-        '    oCount += 1
-        '    rNewFilepath = oPath + "\" + oFilename
-        'Loop
-        'Return rNewFilepath
     End Function
+
     Public Function TestFolderExists(Path As String) As Boolean
         Return TestObjectExists(GetNormalizedPath(Path, False), WMEntityFolder)
     End Function