Fix Windows save path detection for #148

This commit is contained in:
Michael J. Seiferling
2018-09-14 12:33:14 -06:00
parent 898e72f163
commit c7e3e62ce1
2 changed files with 16 additions and 2 deletions
+3 -2
View File
@@ -1927,8 +1927,8 @@ Public Class frmMain
End If
If bWineProcess Then
'Attempt a path conversion if the game configuration is using an absolute windows path
If oProcess.GameInfo.AbsolutePath And oProcess.GameInfo.TruePath.Contains("\") Then
'Attempt a path conversion if the game configuration is using an absolute windows path that we can convert
If mgrVariables.CheckForReservedVariables(oProcess.GameInfo.TruePath) Then
Dim sWinePrefix As String = mgrPath.GetWinePrefix(oProcess.FoundProcess)
Dim sWineSavePath As String
If Not sWinePrefix = String.Empty Then
@@ -1936,6 +1936,7 @@ Public Class frmMain
sWineSavePath = mgrPath.GetWineSavePath(sWinePrefix, oProcess.GameInfo.TruePath)
If Not sWineSavePath = oProcess.GameInfo.TruePath Then
oProcess.GameInfo.TruePath = sWineSavePath
oProcess.GameInfo.AbsolutePath = True
UpdateLog(mgrCommon.FormatString(frmMain_WineSavePath, New String() {oProcess.GameInfo.Name, sWineSavePath}), False)
End If
End If
+13
View File
@@ -166,4 +166,17 @@
Return oList
End Function
Public Shared Function CheckForReservedVariables(ByVal sPath As String) As Boolean
Dim s As String
For Each s In GetReservedVariables()
s = "%" & s & "%"
If sPath.Contains(s) Then
Return True
End If
Next
Return False
End Function
End Class