From e325678e766b5d72376a03d4ec374dd2d5081da8 Mon Sep 17 00:00:00 2001 From: "Michael J. Seiferling" Date: Fri, 14 Sep 2018 14:41:54 -0600 Subject: [PATCH] Handle LocalLow save locations for #148 --- GBM/Managers/mgrPath.vb | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/GBM/Managers/mgrPath.vb b/GBM/Managers/mgrPath.vb index e736f2e..d6e03e9 100644 --- a/GBM/Managers/mgrPath.vb +++ b/GBM/Managers/mgrPath.vb @@ -239,14 +239,18 @@ Public Class mgrPath Dim oMatch As Match Try - If sPath.Contains("%LOCALAPPDATA%") Then - sReplace = "%LOCALAPPDATA%" - sRegistry = File.ReadAllText(sPrefix & Path.DirectorySeparatorChar & "user.reg") - oParse = New Regex("""Local AppData""="".+?(?=\n)") - ElseIf sPath.Contains("%APPDATA%") Then + If sPath.Contains("%APPDATA%") Then sReplace = "%APPDATA%" sRegistry = File.ReadAllText(sPrefix & Path.DirectorySeparatorChar & "user.reg") oParse = New Regex("""AppData""="".+?(?=\n)") + ElseIf sPath.Contains("%LOCALAPPDATA%Low") Then + sReplace = "%LOCALAPPDATA%Low" + sRegistry = File.ReadAllText(sPrefix & Path.DirectorySeparatorChar & "user.reg") + oParse = New Regex("""{A520A1A4-1780-4FF6-BD18-167343C5AF16}""="".+?(?=\n)") + ElseIf sPath.Contains("%LOCALAPPDATA%") Then + sReplace = "%LOCALAPPDATA%" + sRegistry = File.ReadAllText(sPrefix & Path.DirectorySeparatorChar & "user.reg") + oParse = New Regex("""Local AppData""="".+?(?=\n)") ElseIf sPath.Contains("%USERDOCUMENTS%") Then sReplace = "%USERDOCUMENTS%" sRegistry = File.ReadAllText(sPrefix & Path.DirectorySeparatorChar & "user.reg")