Display variable path on Game Manager for #152
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
'Determine a relative path if possible
|
If Not mgrPath.IsAbsolute(sSavePath) Then
|
||||||
If sAppPath <> String.Empty And sSavePath <> String.Empty Then
|
'Determine a relative path if possible
|
||||||
If Not mgrPath.IsAbsolute(sSavePath) Then
|
If sAppPath <> String.Empty And sSavePath <> String.Empty 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
|
||||||
|
|||||||
Reference in New Issue
Block a user