AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use windream filecheck for VersionWMFilename

Browse Source
This commit is contained in:
Jonathan Jenne 2023-04-11 10:05:28 +02:00
parent fb2e8a6f6c
commit 0008d0f3ba
1 changed files with 3 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Windream/Windream.vb
View File

@ -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
'pPath = GetNormalizedPath(pPath)
'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
Public Function VersionWMFilename(pPath As String, pExt As String)
Return _fileSystem.GetVersionedFilenameWithFilecheck(pPath, AddressOf TestFileExists)
End Function
Public Function TestFolderExists(Path As String) As Boolean
Return TestObjectExists(GetNormalizedPath(Path, False), WMEntityFolder)
End Function