FIxed broken custom variable feature

2018-09-09 11:04:02 -06:00
parent c1b81585a0
commit 7a4caab5a5
1 changed files with 7 additions and 0 deletions
@@ -341,6 +341,13 @@ Public Class mgrPath
        Dim sEnvAppDataRoaming As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim sHomeDir As String = "${HOME}"
        Dim sEnvCurrentUser As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
+        Dim oCustomVariable As clsPathVariable
+
+        For Each oCustomVariable In hshCustomVariables.Values
+            If sValue.Contains(oCustomVariable.FormattedName) Then
+                Return sValue.Replace(oCustomVariable.FormattedName, oCustomVariable.Path)
+            End If
+        Next

        If mgrCommon.IsUnix Then
            '$VAR_iable