template 폴더에 압축파일을 두고 그것을 자동 압축 해제하도록 함 , webview2 runtime 을 추가
This commit is contained in:
@@ -4,20 +4,28 @@ Imports System.Threading.Tasks
|
||||
|
||||
Public Class Frm_WwwrootExtract
|
||||
|
||||
Dim extractPath As String
|
||||
Dim zipPath As String
|
||||
Public Sub New(targetpath As String, zipfile As String)
|
||||
InitializeComponent()
|
||||
Me.extractPath = targetpath
|
||||
Me.zipPath = zipfile
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_WwwrootExtract_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
Me.Show()
|
||||
Application.DoEvents()
|
||||
|
||||
' 폼이 로드될 때 자동으로 압축 해제 시작
|
||||
ExtractWwwrootAsync()
|
||||
ExtractTemplateFiles()
|
||||
End Sub
|
||||
|
||||
Private Async Sub ExtractWwwrootAsync()
|
||||
Private Async Sub ExtractTemplateFiles()
|
||||
Try
|
||||
|
||||
Dim extractPath As String = Path.Combine(Application.StartupPath, "wwwroot")
|
||||
Dim zipPath As String = Path.Combine(extractPath, "wwwroot.zip")
|
||||
' Dim extractPath As String = TargetPath ' Path.Combine(Application.StartupPath, "wwwroot")
|
||||
' Dim zipPath As String = Path.Combine(extractPath, "wwwroot.zip")
|
||||
|
||||
' ZIP 파일 존재 여부 확인
|
||||
If Not File.Exists(zipPath) Then
|
||||
|
||||
Reference in New Issue
Block a user