AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix file exclusion path to respect userconfig_prefix

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-06 13:51:36 +02:00
parent 308b26556c
commit 54f875af09
6 changed files with 23 additions and 585 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/Modules/Globix/ClassExclusions.vb
View File

@@ -1,14 +1,16 @@
Public Class ClassExclusions
Public Function Load(ExclusionPath As String) As Boolean
Public Property FileExclusionPath As String = IO.Path.Combine(My.Application.UserAppDataPath, "FileExclusions.xml")
Public Function Load() As Boolean
Dim rowresult As String = ""
Try
'if file doesn't exist, create the file with its default xml table
If Not IO.File.Exists(My.Application.Globix.PATH_FileExclusions) Then
If Not IO.File.Exists(FileExclusionPath) Then
My.Application.Globix.DTEXCLUDE_FILES = CreateExclusionTable()
My.Application.Globix.DTEXCLUDE_FILES.WriteXml(My.Application.Globix.PATH_FileExclusions)
My.Application.Globix.DTEXCLUDE_FILES.WriteXml(FileExclusionPath)
End If
My.Application.Globix.DTEXCLUDE_FILES = GetTablefromXML(ExclusionPath)
My.Application.Globix.DTEXCLUDE_FILES = GetTablefromXML(FileExclusionPath)
Return True
Catch ex As Exception