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

create dest directory if not exists

Browse Source
This commit is contained in:
Pascal
2023-05-05 08:14:29 +02:00
parent 52943e03be
commit b74cc0d633
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ModpackUpdater/UpdateInstaller.vb
View File

@@ -173,6 +173,7 @@ Public Class UpdateInstaller
Select Case action.Type Select Case action.Type
Case UpdateActionType.Update Case UpdateActionType.Update
Directory.CreateDirectory(Path.GetDirectoryName(destFilePath))
Dim sRemote As Stream = Await httpClient.GetStreamAsync(action.DownloadUrl) Dim sRemote As Stream = Await httpClient.GetStreamAsync(action.DownloadUrl)
Dim fs As New FileStream(destFilePath, FileMode.Create, FileAccess.ReadWrite) Dim fs As New FileStream(destFilePath, FileMode.Create, FileAccess.ReadWrite)
Await sRemote.CopyToAsync(fs) Await sRemote.CopyToAsync(fs)
@@ -185,11 +186,13 @@ Public Class UpdateInstaller
Case UpdateActionType.Copy Case UpdateActionType.Copy
Dim srcFilePath As String = Path.Combine(localPath, action.SrcPath) Dim srcFilePath As String = Path.Combine(localPath, action.SrcPath)
If File.Exists(srcFilePath) Then If File.Exists(srcFilePath) Then
Directory.CreateDirectory(Path.GetDirectoryName(destFilePath))
File.Copy(srcFilePath, destFilePath, True) File.Copy(srcFilePath, destFilePath, True)
End If End If
Case UpdateActionType.Move Case UpdateActionType.Move
Dim srcFilePath As String = Path.Combine(localPath, action.SrcPath) Dim srcFilePath As String = Path.Combine(localPath, action.SrcPath)
If File.Exists(srcFilePath) Then If File.Exists(srcFilePath) Then
Directory.CreateDirectory(Path.GetDirectoryName(destFilePath))
File.Move(srcFilePath, destFilePath, True) File.Move(srcFilePath, destFilePath, True)
End If End If
End Select End Select