template 폴더에 압축파일을 두고 그것을 자동 압축 해제하도록 함 , webview2 runtime 을 추가
This commit is contained in:
@@ -31,26 +31,27 @@ Partial Class Frm_WwwrootExtract
|
||||
'lblStatus
|
||||
'
|
||||
Me.lblStatus.AutoSize = True
|
||||
Me.lblStatus.Location = New System.Drawing.Point(30, 90)
|
||||
Me.lblStatus.Location = New System.Drawing.Point(34, 112)
|
||||
Me.lblStatus.Name = "lblStatus"
|
||||
Me.lblStatus.Size = New System.Drawing.Size(113, 12)
|
||||
Me.lblStatus.Size = New System.Drawing.Size(142, 15)
|
||||
Me.lblStatus.TabIndex = 0
|
||||
Me.lblStatus.Text = "압축 해제 준비 중..."
|
||||
'
|
||||
'progressBar
|
||||
'
|
||||
Me.progressBar.Location = New System.Drawing.Point(30, 110)
|
||||
Me.progressBar.Location = New System.Drawing.Point(34, 138)
|
||||
Me.progressBar.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.progressBar.Name = "progressBar"
|
||||
Me.progressBar.Size = New System.Drawing.Size(440, 30)
|
||||
Me.progressBar.Size = New System.Drawing.Size(503, 38)
|
||||
Me.progressBar.TabIndex = 1
|
||||
'
|
||||
'lblPercentage
|
||||
'
|
||||
Me.lblPercentage.AutoSize = True
|
||||
Me.lblPercentage.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.lblPercentage.Location = New System.Drawing.Point(30, 150)
|
||||
Me.lblPercentage.Location = New System.Drawing.Point(34, 188)
|
||||
Me.lblPercentage.Name = "lblPercentage"
|
||||
Me.lblPercentage.Size = New System.Drawing.Size(23, 12)
|
||||
Me.lblPercentage.Size = New System.Drawing.Size(28, 15)
|
||||
Me.lblPercentage.TabIndex = 2
|
||||
Me.lblPercentage.Text = "0%"
|
||||
'
|
||||
@@ -58,22 +59,23 @@ Partial Class Frm_WwwrootExtract
|
||||
'
|
||||
Me.lblTitle.AutoSize = True
|
||||
Me.lblTitle.Font = New System.Drawing.Font("굴림", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.lblTitle.Location = New System.Drawing.Point(30, 30)
|
||||
Me.lblTitle.Location = New System.Drawing.Point(34, 38)
|
||||
Me.lblTitle.Name = "lblTitle"
|
||||
Me.lblTitle.Size = New System.Drawing.Size(239, 15)
|
||||
Me.lblTitle.Size = New System.Drawing.Size(297, 19)
|
||||
Me.lblTitle.TabIndex = 3
|
||||
Me.lblTitle.Text = "매뉴얼 파일 압축 해제 중입니다"
|
||||
Me.lblTitle.Text = "런타임 파일 압축 해제 중입니다"
|
||||
'
|
||||
'Frm_WwwrootExtract
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(500, 200)
|
||||
Me.ClientSize = New System.Drawing.Size(571, 250)
|
||||
Me.Controls.Add(Me.lblTitle)
|
||||
Me.Controls.Add(Me.lblPercentage)
|
||||
Me.Controls.Add(Me.progressBar)
|
||||
Me.Controls.Add(Me.lblStatus)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_WwwrootExtract"
|
||||
|
||||
@@ -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