메뉴얼 파일 압축 해제 관련 기능 추가

ArinWarev1/MdiMain.vb

@@ -86,7 +86,8 @@ Public Class MdiMain
 
         Refresh_info()
 
-
+        '// wwwroot 폴더 확인 및 압축 해제
+        CheckAndExtractWwwroot()
 
         Read_SEtting() '//환경설정을 가져온다. Splah를 변경했따.
         Read_FilHistory() '//파일사용내역
@@ -291,6 +292,35 @@ Public Class MdiMain
 
     End Sub
 
+    Private Sub CheckAndExtractWwwroot()
+        Try
+            ' wwwroot 폴더 경로 확인
+            Dim wwwrootPath As String = Path.Combine(Application.StartupPath, "wwwroot")
+            Dim indexHtmlPath As String = Path.Combine(wwwrootPath, "index.html")
+            Dim zipPath As String = Path.Combine(wwwrootPath, "wwwroot.zip")
+
+            ' wwwroot 폴더가 없거나 index.html이 없는 경우
+            If (Not Directory.Exists(wwwrootPath) OrElse Not File.Exists(indexHtmlPath)) Then
+                ' wwwroot.zip 파일이 존재하는지 확인
+                If File.Exists(zipPath) Then
+                    ' 압축 해제 폼 표시
+                    Dim extractForm As New Frm_WwwrootExtract()
+                    extractForm.ShowDialog()
+
+                    ' 압축 해제가 실패한 경우
+                    If extractForm.DialogResult <> DialogResult.OK Then
+                        MessageBox.Show("매뉴얼 파일 압축 해제에 실패했습니다." & vbCrLf & "일부 기능이 제한될 수 있습니다.", 
+                                        "경고", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+                    End If
+                End If
+            End If
+        Catch ex As Exception
+            ' 오류가 발생해도 프로그램은 계속 실행
+            MessageBox.Show("매뉴얼 파일 확인 중 오류가 발생했습니다: " & ex.Message, 
+                            "경고", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+        End Try
+    End Sub
+
     Private Sub bt_fileopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
     End Sub
@@ -3968,7 +3998,7 @@ ENDSTAT:  '//오류발생시 강제종료를 위한 분기문
 
 
     Dim frmManual As Frm_WebManual = Nothing
-    Private Sub ManualToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ManualToolStripMenuItem.Click
+    Private Sub ManualToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles btManual.Click
         Try
             If frmManual Is Nothing OrElse frmManual.IsDisposed Then
                 frmManual = New Frm_WebManual()