LITW-Refined/minecraft-modpack-updater
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

revertsadfasdf

Browse Source
This commit is contained in:
Pascal
2023-02-26 16:30:08 +01:00
parent cc558ab274
commit a7c31d6086
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ModpackUpdater/AppConfig.vb
View File

@@ -9,12 +9,11 @@ Public Class AppConfig
Public Property LastConfigFilePath As String Public Property LastConfigFilePath As String
Public Property KeepLocalFiles As New List(Of String) Public Property KeepLocalFiles As New List(Of String)
Public Property RemoveLocalFiles As Boolean Public Property RemoveLocalFiles As Boolean
Public Property OnlySearchSubfolders As Boolean
Public Sub Reset() Public Sub Reset()
KeepLocalFiles.Clear() KeepLocalFiles.Clear()
KeepLocalFiles.Add("OptiFine_1.7.10_HD_U_E7.jar") KeepLocalFiles.Add("OptiFine_1.7.10_HD_U_E7.jar")
OnlySearchSubfolders = True RemoveLocalFiles = False
End Sub End Sub
Public Shared ReadOnly Property Instance As AppConfig Public Shared ReadOnly Property Instance As AppConfig

3
ModpackUpdater/UpdateInstaller.vb
View File

@@ -89,7 +89,6 @@ Public Class UpdateInstaller
Dim allLocalFiles = Directory.GetFiles(localPath, "*", SearchOption.AllDirectories) Dim allLocalFiles = Directory.GetFiles(localPath, "*", SearchOption.AllDirectories)
For Each lf As String In allLocalFiles For Each lf As String In allLocalFiles
Dim isKnown As Boolean = False Dim isKnown As Boolean = False
Dim allowRemove As Boolean = AppConfig.Instance.OnlySearchSubfolders OrElse Path.GetDirectoryName(lf) <> localPath
For Each checkedFile As String In checkedFiles For Each checkedFile As String In checkedFiles
If Not isKnown AndAlso If(checkedFile, "") = If(lf, "") Then If Not isKnown AndAlso If(checkedFile, "") = If(lf, "") Then
@@ -97,7 +96,7 @@ Public Class UpdateInstaller
End If End If
Next Next
If Not isKnown AndAlso allowRemove Then If Not isKnown Then
result.SyncFiles.Add(New UpdateSyncFile(If(ignoreRevmoedFiles, UpdateSyncAction.None, UpdateSyncAction.RemovedFile), lf, String.Empty)) result.SyncFiles.Add(New UpdateSyncFile(If(ignoreRevmoedFiles, UpdateSyncAction.None, UpdateSyncAction.RemovedFile), lf, String.Empty))
End If End If
Next Next