Display variable path on Game Manager for #152

This commit is contained in:
MikeMaximus
2018-09-08 11:30:55 -06:00
parent 9fc53e74b1
commit b674e4e82b
+6 -4
View File
@@ -162,14 +162,16 @@ Public Class frmGameManager
oLocalBackupData = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local) oLocalBackupData = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local)
End Sub End Sub
Private Function ConvertToRelativePath(ByVal sSavePath As String, ByVal sAppPath As String) As String Private Function HandleSavePath(ByVal sSavePath As String, ByVal sAppPath As String) As String
Dim sPath As String = sSavePath Dim sPath As String = sSavePath
If Not mgrPath.IsAbsolute(sSavePath) Then
'Determine a relative path if possible 'Determine a relative path if possible
If sAppPath <> String.Empty And sSavePath <> String.Empty Then If sAppPath <> String.Empty And sSavePath <> String.Empty Then
If Not mgrPath.IsAbsolute(sSavePath) Then
sPath = mgrPath.DetermineRelativePath(sAppPath, sSavePath) sPath = mgrPath.DetermineRelativePath(sAppPath, sSavePath)
End If End If
Else
sPath = mgrPath.ReverseSpecialPaths(sPath)
End If End If
Return sPath Return sPath
@@ -380,7 +382,7 @@ Public Class frmGameManager
If sNewPath <> String.Empty Then If sNewPath <> String.Empty Then
txtSavePath.Text = sNewPath txtSavePath.Text = sNewPath
txtSavePath.Text = ConvertToRelativePath(txtSavePath.Text, txtAppPath.Text) txtSavePath.Text = HandleSavePath(txtSavePath.Text, txtAppPath.Text)
End If End If
End Sub End Sub
@@ -867,7 +869,7 @@ Public Class frmGameManager
txtProcess.Text = oApp.ProcessName txtProcess.Text = oApp.ProcessName
chkRegEx.Checked = oApp.IsRegEx chkRegEx.Checked = oApp.IsRegEx
txtParameter.Text = oApp.Parameter txtParameter.Text = oApp.Parameter
txtSavePath.Text = oApp.Path txtSavePath.Text = oApp.TruePath
txtFileType.Text = oApp.FileType txtFileType.Text = oApp.FileType
txtExclude.Text = oApp.ExcludeList txtExclude.Text = oApp.ExcludeList
chkFolderSave.Checked = oApp.FolderSave chkFolderSave.Checked = oApp.FolderSave