KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

파일 열기 메뉴 펑션으로 분리

Browse Source 
데이터 정정 작업을 펑션으로 분리하고, import 기능에서도 추가 호출
가져오기시 메뉴 자동 업데이트 되도록 함
This commit is contained in:
chi
2022-12-18 21:33:10 +09:00
parent f400997408
commit 3b44d192cb
1 changed files with 166 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

442
ArinWarev1/MdiMain.vb
View File

@@ -711,6 +711,222 @@ Public Class MdiMain
Frm_Work.Label1.Text = "데이터를 확인하고 있습니다"
Frm_Work.Show()
FixData(isNew) '//221218 chi import 기능과 공유하기 위해 데이터 보정기능을 분리
Frm_Work.Close()
'//weather
Read_WeatherFile()
Calc = New Calculator(Prj.LGVersino, DSET1, DSETR1, Result1, False) '//계삭식클래스 초기화
Me.bt_filesave.Enabled = True
'Me.bt_newsave.Enabled = True
Refresh_info() '//화면하단의 정보창표시
'If Prj.UserId.ToLower() <> "guest" AndAlso SyncServer Then '//공용및 기상데이터 자동싱크
' pLog.Add("SyncServer ON")
' Read_CommonCode()
' Read_WeatherData()
' Read_ProfileData()
'End If
'//접수일,인증데인터확인 / 13-12-05 / arin
Dim Drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
If Drdesc.injungdate.Trim = "" Then Drdesc.injungdate = Now.ToString("yyyy-MM-dd")
If Drdesc.jubsudate.Trim = "" Then Drdesc.jubsudate = Now.ToString("yyyy-MM-dd")
If Drdesc.용도수수료입금일 = "" Then Drdesc.용도수수료입금일 = Now.ToString("yyyy-MM-dd")
If Drdesc.reqdate = "" Then Drdesc.reqdate = Now.ToString("yyyy-MM-dd")
If Drdesc.existdate = "" Then Drdesc.existdate = Now.ToString("yyyy-MM-dd")
If Drdesc.공공 = "" Then Drdesc.공공 = "1"
DSET1.tbl_Desc.AcceptChanges()
'//160327 ui버젼체크
If checkVersion Then
If Prj.UIVersion <> CurrentUIVersion() Then
If CInt(Prj.UIVersion.Substring(0, 4)) >= 2016 Then
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
"파일 Version : " + Prj.UIVersion + vbCrLf + _
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
Else
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
"파일 Version : " + vbCrLf + _
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
End If
End If
End If
'//현재 연 파일명을 기록해준다.
Me.Save_FilHistory(Prj.FileName)
Me.Read_FilHistory()
Calc.validation() '//null보정
'//팡리명이 너무길면안되니 경로를 뺴고 딱 파일명만 보여줍니다.
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
'//Version 정보를 확인
Dim MyVersion As String = ""
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
Work_msg("데이터 버젼확인중")
'= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
Dim L As New ArinLogin.ArinLOgin
'/공용코드버젼확인
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
pLog.Add(String.Format("공용코드버젼 = {0}", MyVersion))
Try
VersionInfo = L.Get_LastVersion("C2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Dim Msg As New System.Text.StringBuilder
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
Msg.AppendLine("----------------------------------")
Msg.AppendLine(VersionInfo.Desc)
Msg.AppendLine("----------------------------------")
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' End
End If
End If
End If
Catch ex As Exception
MsgBox("공용코드 에러" & ex.Message.ToString)
End Try
'/표준프로파일버젼확인 '//2010.12.06 추가
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
pLog.Add(String.Format("표준프로파일버젼 = {0}", MyVersion))
Try
VersionInfo = L.Get_LastVersion("P2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Dim Msg As New System.Text.StringBuilder
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
Msg.AppendLine("----------------------------------")
Msg.AppendLine(VersionInfo.Desc)
Msg.AppendLine("----------------------------------")
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' End
End If
End If
End If
Catch ex As Exception
MsgBox("표준프로파일 에러" & ex.Message.ToString)
End Try
End If
Read_WeatherFile()
Menu_건물개요()
'/기상데이터버젼확인
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'pLog.Add(String.Format("기상데이터버젼 = {0}", MyVersion))
'If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
' Try
' 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
' VersionInfo = L.Get_LastVersion("W2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
' If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
' Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
' ' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
' End If
' Catch ex As Exception
' End Try
'End If
PrjChanged = False
Me.RefreshMenuList("")
Work_msg("")
pLog.Add("FileOpened")
'//백업기능을 넣는다 160509
If Not FileName.ToLower.StartsWith("open_") Then
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
If bakdi.Exists = False Then bakdi.Create()
Dim oldfi As New System.IO.FileInfo(FileName)
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
Try
oldfi.CopyTo(newfi.FullName)
Catch ex As Exception
pLog.Add("backup 실패 old=" + oldfi.FullName + ",new=" + newfi.FullName)
End Try
End If
Else
pLog.Add("Open File Error", True)
'//파일불러오기 실패로인해서 다음처리를 하지않는다.
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
Dim oldfi As New System.IO.FileInfo(FileName)
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
If newfi.Exists Then
If MsgBox("백업된 파일이 존재합니다." + vbCrLf + vbCrLf + _
"백업일자 : " + newfi.CreationTime.ToShortDateString + " " + newfi.CreationTime.ToShortTimeString + vbCrLf + "백업된 파일을 불러오시겠습니까?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "확인") = MsgBoxResult.Yes Then
Open_File(newfi.FullName)
End If
End If
End If
End Sub
Sub FixData(isNew As Boolean)
If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "(없음)"})
If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "(없음)"})
If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "(없음)"})
@@ -861,220 +1077,6 @@ Public Class MdiMain
DSET2.tbl_myoun.AcceptChanges()
End If
Frm_Work.Close()
'//weather
Read_WeatherFile()
Calc = New Calculator(Prj.LGVersino, DSET1, DSETR1, Result1, False) '//계삭식클래스 초기화
Me.bt_filesave.Enabled = True
'Me.bt_newsave.Enabled = True
Refresh_info() '//화면하단의 정보창표시
'If Prj.UserId.ToLower() <> "guest" AndAlso SyncServer Then '//공용및 기상데이터 자동싱크
' pLog.Add("SyncServer ON")
' Read_CommonCode()
' Read_WeatherData()
' Read_ProfileData()
'End If
'//접수일,인증데인터확인 / 13-12-05 / arin
Dim Drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
If Drdesc.injungdate.Trim = "" Then Drdesc.injungdate = Now.ToString("yyyy-MM-dd")
If Drdesc.jubsudate.Trim = "" Then Drdesc.jubsudate = Now.ToString("yyyy-MM-dd")
If Drdesc.용도수수료입금일 = "" Then Drdesc.용도수수료입금일 = Now.ToString("yyyy-MM-dd")
If Drdesc.reqdate = "" Then Drdesc.reqdate = Now.ToString("yyyy-MM-dd")
If Drdesc.existdate = "" Then Drdesc.existdate = Now.ToString("yyyy-MM-dd")
If Drdesc.공공 = "" Then Drdesc.공공 = "1"
DSET1.tbl_Desc.AcceptChanges()
'//160327 ui버젼체크
If checkVersion Then
If Prj.UIVersion <> CurrentUIVersion() Then
If CInt(Prj.UIVersion.Substring(0, 4)) >= 2016 Then
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
"파일 Version : " + Prj.UIVersion + vbCrLf + _
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
Else
MsgBox("해당 파일은 현재 프로그램과 동일한 버젼에서 생성된 파일이 아닙니다" + vbCrLf + vbCrLf + _
"파일 Version : " + vbCrLf + _
"현재 Version : " + CurrentUIVersion() + vbCrLf + vbCrLf + _
"파일을 생성한 버젼과 결과 혹은 화면이 일치하지 않을 수 있습니다", MsgBoxStyle.Information, "버전확인")
End If
End If
End If
'//현재 연 파일명을 기록해준다.
Me.Save_FilHistory(Prj.FileName)
Me.Read_FilHistory()
Calc.validation() '//null보정
'//팡리명이 너무길면안되니 경로를 뺴고 딱 파일명만 보여줍니다.
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
'//Version 정보를 확인
Dim MyVersion As String = ""
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
Work_msg("데이터 버젼확인중")
'= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
Dim L As New ArinLogin.ArinLOgin
'/공용코드버젼확인
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
pLog.Add(String.Format("공용코드버젼 = {0}", MyVersion))
Try
VersionInfo = L.Get_LastVersion("C2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Dim Msg As New System.Text.StringBuilder
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
Msg.AppendLine("----------------------------------")
Msg.AppendLine(VersionInfo.Desc)
Msg.AppendLine("----------------------------------")
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' End
End If
End If
End If
Catch ex As Exception
MsgBox("공용코드 에러" & ex.Message.ToString)
End Try
'/표준프로파일버젼확인 '//2010.12.06 추가
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
pLog.Add(String.Format("표준프로파일버젼 = {0}", MyVersion))
Try
VersionInfo = L.Get_LastVersion("P2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Dim Msg As New System.Text.StringBuilder
Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
Msg.AppendLine("----------------------------------")
Msg.AppendLine(VersionInfo.Desc)
Msg.AppendLine("----------------------------------")
If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' End
End If
End If
End If
Catch ex As Exception
MsgBox("표준프로파일 에러" & ex.Message.ToString)
End Try
End If
Read_WeatherFile()
Menu_건물개요()
'/기상데이터버젼확인
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'pLog.Add(String.Format("기상데이터버젼 = {0}", MyVersion))
'If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
' Try
' 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
' VersionInfo = L.Get_LastVersion("W2") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
' If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
' Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
' ' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
' End If
' Catch ex As Exception
' End Try
'End If
PrjChanged = False
Me.RefreshMenuList("")
Work_msg("")
pLog.Add("FileOpened")
'//백업기능을 넣는다 160509
If Not FileName.ToLower.StartsWith("open_") Then
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
If bakdi.Exists = False Then bakdi.Create()
Dim oldfi As New System.IO.FileInfo(FileName)
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
Try
oldfi.CopyTo(newfi.FullName)
Catch ex As Exception
pLog.Add("backup 실패 old=" + oldfi.FullName + ",new=" + newfi.FullName)
End Try
End If
Else
pLog.Add("Open File Error", True)
'//파일불러오기 실패로인해서 다음처리를 하지않는다.
Dim bakdi As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Backup")
Dim oldfi As New System.IO.FileInfo(FileName)
Dim newfi As New System.IO.FileInfo(bakdi.FullName + "\open_" + oldfi.Name)
If newfi.Exists Then
If MsgBox("백업된 파일이 존재합니다." + vbCrLf + vbCrLf + _
"백업일자 : " + newfi.CreationTime.ToShortDateString + " " + newfi.CreationTime.ToShortTimeString + vbCrLf + "백업된 파일을 불러오시겠습니까?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "확인") = MsgBoxResult.Yes Then
Open_File(newfi.FullName)
End If
End If
End If
End Sub
Public Sub Open_File_Only_weather(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False)
@@ -2484,6 +2486,10 @@ ENDSTAT: '//
End Sub
Private Sub 열기ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btOpen.Click
OpenFile()
End Sub
Sub OpenFile()
If Prj.LoginTime = "" Then
MsgBox("먼저 로그인을 하세요", MsgBoxStyle.Information, "확인")
Frm_Intro.Activate()
@@ -2800,7 +2806,7 @@ ENDSTAT: '//
End Sub
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
btOpen.PerformClick()
OpenFile()
End Sub
@@ -3392,6 +3398,12 @@ ENDSTAT: '//
Pub.DSET1.AcceptChanges()
Dim xr As XmlReadMode = Pub.DSET1.ReadXml(od.FileName)
Pub.DSET1.AcceptChanges()
FixData(False) '//데이터보정
Calc.validation() '//null보정
Menu_건물개요()
Me.RefreshMenuList("")
Catch ex As Exception
MsgboxE("외부파일 가져오기 실패\n" + ex.Message)
End Try