fix(ModModpack): 初始值不为 0
This commit is contained in:
@@ -113,9 +113,10 @@ Public Module ModModpack
|
|||||||
'解压文件
|
'解压文件
|
||||||
Dim RetryCount As Integer = 1
|
Dim RetryCount As Integer = 1
|
||||||
Dim Encode = Encoding.GetEncoding("GB18030")
|
Dim Encode = Encoding.GetEncoding("GB18030")
|
||||||
|
Dim InitialProgress = Loader.Progress
|
||||||
Try
|
Try
|
||||||
Retry:
|
Retry:
|
||||||
Loader.Progress = 0
|
Loader.Progress = InitialProgress
|
||||||
'完全不知道为啥会出现文件正在被另一进程使用的问题,总之多试试
|
'完全不知道为啥会出现文件正在被另一进程使用的问题,总之多试试
|
||||||
DeleteDirectory(InstallTemp)
|
DeleteDirectory(InstallTemp)
|
||||||
ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)
|
ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)
|
||||||
|
|||||||
Reference in New Issue
Block a user