HYTOS

Imports System.IO

Imports System.Data.SqlClient

Imports System.Data.SQLite

Imports Plaice

Imports Llama

Imports PidA

Public Class Main

    Dim _DB As DataTable = New DataTable()

    Dim _Placement As New Placement

    Dim _DWG_X = 0.84 '0.695 '1 '

    Dim _DWG_Y = 0.594 '0.585 '0.8 '

    Dim _IMG_X = 0

    Dim _IMG_Y = 0

    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim sDBPath As String = "C:\Users\kyusu\Desktop\Auto SPPID 변환 프로젝트\PID.db"

        LoadDB(sDBPath)

        SetUpListViewColumns()

        LoadTree()

    End Sub

    Private Sub LoadTree()

        Dim i As Integer

        Dim j() As String

        j = Directory.GetLogicalDrives

        For i = 0 To UBound(j)

            Dim cdrive As System.IO.DriveInfo

            cdrive = My.Computer.FileSystem.GetDriveInfo(j(i).ToString)

            Select Case cdrive.DriveType

                Case DriveType.Fixed

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 3)

                Case DriveType.CDRom

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 11)

                Case DriveType.Network

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 5)

                Case DriveType.Removable

                    Tree_XMLFiles.Nodes.Add(j(i), j(i).ToString, 12)

            End Select

        Next

    End Sub

    Private Sub SetUpListViewColumns()

        ' TODO: Add code to set up listview columns

        ListView_File.Columns.Add("  Name ")

        '   ListView_File.Columns.Add(" Size  ")

        '    ListView_File.Columns.Add(" Extension  ")

        ListView_File.Columns.Add(" Date Modified  ")

        SetView(View.Details)

    End Sub

    Private Sub SetView(ByVal View As System.Windows.Forms.View)

        'Figure out which menu item should be checked

        'Dim MenuItemToCheck As ToolStripMenuItem = Nothing

        'Select Case View

        '    Case View.Details

        '        MenuItemToCheck = DetailsToolStripMenuItem

        '    Case View.LargeIcon

        '        MenuItemToCheck = LargeIconsToolStripMenuItem

        '    Case View.List

        '        MenuItemToCheck = ListToolStripMenuItem

        '    Case View.SmallIcon

        '        MenuItemToCheck = SmallIconsToolStripMenuItem

        '    Case View.Tile

        '        MenuItemToCheck = TileToolStripMenuItem

        '    Case Else

        '        Debug.Fail("Unexpected View")

        '        View = View.Details

        '        MenuItemToCheck = DetailsToolStripMenuItem

        'End Select

        ''Check the appropriate menu item and deselect all others under the Views menu

        'For Each MenuItem As ToolStripMenuItem In ListViewToolStripButton.DropDownItems

        '    If MenuItem Is MenuItemToCheck Then

        '        MenuItem.Checked = True

        '    Else

        '        MenuItem.Checked = False

        '    End If

        'Next

        'Finally, set the view requested

        ListView_File.View = View.Details

    End Sub

    Private Sub Btn_FolderPath_Click(sender As Object, e As EventArgs)

        Dim oOpenFolderDlg = New FolderBrowserDialog()

        Dim result As DialogResult = oOpenFolderDlg.ShowDialog()

        Dim sFolderName As String = ""

        If (result = DialogResult.OK) Then

            sFolderName = oOpenFolderDlg.SelectedPath

            '    Txt_FolderPath.Text = sFolderName

            InitXMLTree(sFolderName)

        End If

    End Sub

    Private Sub InitXMLTree(ByVal sFolderPath As String)

        Tree_XMLFiles.Nodes.Clear()

        Dim oRootNode As TreeNode = Tree_XMLFiles.Nodes.Add("XML")

        '.XML 만 로드

        Dim sfileEntries As String() = Directory.GetFiles(sFolderPath, "*.xml")

        ' Process the list of files found in the directory.

        Dim sfileName As String

        For Each sfileName In sfileEntries

            oRootNode.Nodes.Add(sfileName)

        Next sfileName

        oRootNode.ExpandAll()

    End Sub

    Private Function CreateDwg(ByVal oDwgName As String, ByVal sPlantGroupName As String, ByVal sTemplateFileName As String) As Boolean

        Try

            Dim datasource As LMADataSource

            Dim objPIDAutoApp As Object

            Dim objPIDADrawing As Object

            Dim PlantGroupName As String

            Dim TemplateFileName As String

            Dim DrawingNumber As String

            Dim DrawingName As String

            Dim extension As String = Path.GetExtension(oDwgName)

            oDwgName = oDwgName.Replace(extension, "")

            datasource = New LMADataSource

            objPIDAutoApp = CreateObject("PIDAutomation.Application")

            PlantGroupName = sPlantGroupName

            'considering accessing T_OptinSetting to read the template files path, which will be more flexible

            TemplateFileName = sTemplateFileName

            DrawingNumber = oDwgName

            DrawingName = oDwgName

            objPIDADrawing = objPIDAutoApp.Drawings.Add(PlantGroupName, TemplateFileName, DrawingNumber, DrawingName)

            If Not objPIDADrawing Is Nothing Then

                '이미 오픈

                objPIDADrawing.CloseDrawing

            End If

            objPIDAutoApp.Quit

            objPIDAutoApp = Nothing

            objPIDADrawing = Nothing

            Return True

        Catch ex As Exception

            Return False

        End Try

    End Function

#Region "Load Pipe"

    Private Function LoadPipe_DT() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("start_x")

        oDt.Columns.Add("start_y")

        oDt.Columns.Add("end_x")

        oDt.Columns.Add("end_y")

        oDt.Columns.Add("Symbol")

        Return oDt

    End Function

#End Region

#Region "Load Symbol"

    Private Function LoadSymbol_DT() As DataTable

        Dim oDt As New DataTable

        oDt.Columns.Add("Name")

        oDt.Columns.Add("x")

        oDt.Columns.Add("y")

        oDt.Columns.Add("Angle")

        oDt.Columns.Add("Symbol")

        oDt.Columns.Add("Text")

        Return oDt

    End Function

#End Region

    Private Function GetSymbolMapping(ByVal oSymbolName As String) As String

        Dim oSystemPath As String = ""

        Dim oSelectRow() As DataRow = _DB.Select("[pid_symbolname] = '" + oSymbolName + "'")

        If oSelectRow.Length = 1 Then

            oSystemPath = oSelectRow(0).Item("sppid_systempath").ToString()

        End If

        Return oSystemPath

    End Function

    Private Function LoadSymbolInXml(ByVal sXmlPath As String) As DataTable

        Dim oDt As DataTable = LoadSymbol_DT()

        Dim oElement As XElement = XElement.Load(sXmlPath)

        If oElement IsNot Nothing Then

            For Each symbols As Object In oElement.Elements("SYMBOLS")

                For Each page As Object In symbols.Elements("SYMBOL")

                    Dim oAddrow As DataRow = oDt.NewRow()

                    Dim oObj As XElement = page.Element("NAME")

                    Dim oSymbol = oObj.Value

                    oObj = page.Element("TEXT")

                    Dim oText = oObj.Value

                    oObj = page.Element("CLASS")

                    Dim oClass = oObj.Value

                    oObj = page.Element("TYPE")

                    Dim oType = oObj.Value

                    oObj = page.Element("ITEM")

                    Dim oItem = oObj.Value

                    ' Dim oSymbolPath As String = "\" + oSymbol + "\" + oClass + "\" + oType + "\" + oItem + ".sym"

                    Dim oSymbolPath As String = GetSymbolMapping(oItem)

                    oObj = page.Element("ORIGINALPOINT")

                    Dim sOriginPoint = oObj.Value

                    oObj = page.Element("ANGLE")

                    Dim oAngle = oObj.Value

                    Dim oSplitPos As String() = sOriginPoint.Split(",")

                    Dim oX As Double = 0.0

                    Dim oY As Double = 0.0

                    If IsNumeric(oSplitPos(0)) Then

                        oX = Double.Parse(oSplitPos(0))

                    End If

                    If IsNumeric(oSplitPos(1)) Then

                        oY = Double.Parse(oSplitPos(1))

                    End If

                    ConvertPoint(oX, oY, _DWG_X, _DWG_Y)

                    oAddrow("X") = oX '+ 0.05

                    oAddrow("Y") = oY

                    oAddrow("Angle") = oAngle

                    oAddrow("Symbol") = oSymbolPath

                    oAddrow("Text") = oText

                    oAddrow("Name") = oSymbol

                    oDt.Rows.Add(oAddrow)

                Next

            Next

        End If

    End Function

    Private Function LoadPipeInXml(ByVal sXmlPath As String) As DataTable

        Try

            Dim oDt As DataTable = LoadPipe_DT()

            Dim oElement As XElement = XElement.Load(sXmlPath)

            If oElement IsNot Nothing Then

                Dim DWGElement As XElement = oElement.Element("DWGNAME")

                Dim DWGNAME = DWGElement.Value

                Dim sXY As XElement = oElement.Element("SIZE")

                Dim sSize = sXY.Value

                Dim oSplitDWGPos As String() = sSize.Split(",")

                If IsNumeric(oSplitDWGPos(0)) Then

                    _IMG_X = Double.Parse(oSplitDWGPos(0))

                End If

                If IsNumeric(oSplitDWGPos(1)) Then

                    _IMG_Y = Double.Parse(oSplitDWGPos(1))

                End If

                For Each pipes As Object In oElement.Elements("IMGLINES")

                    For Each pipe As Object In pipes.Elements("IMGLINE")

                        Dim oAddrow As DataRow = oDt.NewRow()

                        Dim oObj As XElement = pipe.Element("ITEM")

                        Dim oItem = oObj.Value

                        ' Dim oSymbolPath As String = "\" + oSymbol + "\" + oClass + "\" + oType + "\" + oItem + ".sym"

                        Dim oSymbolPath As String = GetSymbolMapping(oItem)

                        oObj = pipe.Element("START")

                        Dim oStartPoint = oObj.Value

                        Dim oSplitPos As String() = oStartPoint.Split(",")

                        Dim oStartpos_X As Double = 0.0

                        Dim oStartpos_Y As Double = 0.0

                        If IsNumeric(oSplitPos(0)) Then

                            oStartpos_X = Double.Parse(oSplitPos(0))

                        End If

                        If IsNumeric(oSplitPos(1)) Then

                            oStartpos_Y = Double.Parse(oSplitPos(1))

                        End If

                        ConvertPoint(oStartpos_X, oStartpos_Y, _DWG_X, _DWG_Y)

                        oObj = pipe.Element("END")

                        Dim oEndPoint = oObj.Value

                        oSplitPos = oEndPoint.Split(",")

                        Dim oEndpos_X As Double = 0.0

                        Dim oEndpos_Y As Double = 0.0

                        If IsNumeric(oSplitPos(0)) Then

                            oEndpos_X = Double.Parse(oSplitPos(0))

                        End If

                        If IsNumeric(oSplitPos(1)) Then

                            oEndpos_Y = Double.Parse(oSplitPos(1))

                        End If

                        ConvertPoint(oEndpos_X, oEndpos_Y, _DWG_X, _DWG_Y)

                        oAddrow("start_x") = oStartpos_X '+ 0.05

                        oAddrow("start_y") = oStartpos_Y

                        oAddrow("end_x") = oEndpos_X

                        oAddrow("end_y") = oEndpos_Y

                        oAddrow("Symbol") = oSymbolPath

                        oDt.Rows.Add(oAddrow)

                    Next

                Next

            End If

            Return oDt

        Catch ex As Exception

            Return Nothing

        End Try

    End Function

    Private Sub ConvertPoint(ByRef dX As Double, ByRef dY As Double, ByVal dDwgX As Double, ByVal dDwgY As Double)

        Dim calcx As Double = 0

        Dim calcy As Double = 0

        calcx = (dX * _DWG_X) / dDwgX 'Math.Round((dX * _DWG_X) / dDwgX, 2)

        calcy = _DWG_Y - (dY * _DWG_Y) / dDwgY '_DWG_Y - Math.Round((dY * _DWG_Y) / dDwgY, 2)

        dX = calcx

        dY = calcy

    End Sub

    Private Function AutoConverting(ByVal oPipe_Dt As DataTable, ByVal oSymbol_Dt As DataTable) As Boolean

        Dim iSymbolcount = 0

        Dim datasource As LMADataSource

        datasource = _Placement.PIDDataSource

        Dim iPipecnt As Integer = 0

        For Each oRow As DataRow In oPipe_Dt.Rows

            Dim oposition As String = oRow("position").ToString()

            Dim oSymbol As String = oRow("Symbol").ToString()

            Dim oSplitStr As String() = Split(oposition, " ")

            Dim objConnector As LMConnector

            Dim objInputs As PlaceRunInputs

            objInputs = New PlaceRunInputs

            Dim oDwg_x As Double = 9933

            Dim oDwg_y As Double = 7016

            For Each sposition As String In oSplitStr

                Dim opointstr As String() = Split(sposition, ",")

                If (opointstr.Length > 1) Then

                    If IsNumeric(opointstr(0)) And IsNumeric(opointstr(1)) Then

                        Dim ox As Double = opointstr(0)

                        Dim oy As Double = opointstr(1)

                        ConvertPoint(ox, oy, oDwg_x, oDwg_y)

                        objInputs.AddPoint(ox, oy)

                    End If

                End If

            Next

            Dim objItem As LMAItem

            objItem = _Placement.PIDCreateItem(oSymbol)

            objConnector = _Placement.PIDPlaceRun(objItem, objInputs)

            'Dim objPipeRun As LMPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

            'objPipeRun.Attributes("OperFluidCode").Value = "AFS"

            'objPipeRun.Commit()

            iPipecnt = iPipecnt + 1

        Next

        For Each oRow As DataRow In oSymbol_Dt.Rows

            Dim oSymbol As String = oRow("Symbol").ToString()

            Dim oType As String = oRow("Name").ToString()

            Dim oText As String = oRow("Text").ToString()

            Dim oX As Double = 0.0

            Dim oY As Double = 0.0

            If IsNumeric(oRow("x").ToString()) Then

                oX = Double.Parse(oRow("x").ToString())

            End If

            If IsNumeric(oRow("y").ToString()) Then

                oY = Double.Parse(oRow("y").ToString())

            End If

            Dim oAngle As Double = 0.0

            If IsNumeric(oRow("Angle").ToString()) Then

                oAngle = Double.Parse(oRow("Angle").ToString())

            End If

            '   oSymbol = "\INSTRUMENTation\SYSTEM FUNCTIONS\D C S\DCS FUNC ACCESS IN PRIME LOC.sym"

            If oSymbol <> "" Then

                If oType = "INSTRUMENT" Then

                    Dim sTagsuffix As String = ""

                    Dim sTagSequenceNo As String = ""

                    Dim sMeasuredVariableCode As String = ""

                    Dim sInstrumentTypeModifier As String = ""

                    If oText <> "" Then

                        If oText.Contains(",") Then

                            Dim splitstr() As String = oText.Split(",")

                            For i = 0 To splitstr.Count - 1

                                If i = 0 Then

                                    sMeasuredVariableCode = Mid(splitstr(i), 1, 1)

                                    sTagSequenceNo = Mid(splitstr(i), 2, Len(splitstr(i)))

                                Else

                                    If Len(splitstr(i)) = 1 Then

                                        sInstrumentTypeModifier = splitstr(i)

                                    ElseIf Len(splitstr(i)) = 0 Then

                                    ElseIf Len(splitstr(i)) > 1 Then

                                        sInstrumentTypeModifier = Mid(splitstr(i), 1, 1)

                                        sTagsuffix = Mid(splitstr(i), 2, Len(splitstr(i)))

                                    End If

                                End If

                            Next

                        Else

                            sMeasuredVariableCode = Mid(oText, 1, 1)

                            sTagSequenceNo = Mid(oText, 2, Len(oText))

                        End If

                    End If

                    Dim objInstrSym As LMSymbol

                    objInstrSym = _Placement.PIDPlaceSymbol(oSymbol, oX, oY, , oAngle)

                    Dim objInstr As LMInstrument

                    objInstr = datasource.GetInstrument(objInstrSym.ModelItemID)

                    Dim objItem As LMAItem

                    objItem = _Placement.PIDCreateItem(oSymbol)

                    'Dim objInstrClass As LMInstrument

                    'objInstrClass = datasource.GetInstrument(objItem.Id)

                    objInstr.Attributes("MeasuredVariableCode").Value = sMeasuredVariableCode

                    objInstr.Attributes("InstrumentTypeModifier").Value = sInstrumentTypeModifier

                    objInstr.Attributes("TagSuffix").Value = sTagsuffix

                    objInstr.Attributes("TagSequenceNo").Value = sTagSequenceNo

                    objInstr.Commit()

                    'objItem = objPlacement.PIDCreateItem(oSymbol)

                    'Dim objInstrLoop As LMInstrLoop

                    'objInstrLoop = datasource.GetInstrLoop(objItem.Id)

                    'objInstrLoop.Commit()

                ElseIf oType = "GATE VALVE WITH PLUG" Then

                ElseIf oType = "MEDIUM 1D 1TO1" Then

1:

                Else

                    _Placement.PIDPlaceSymbol(oSymbol, oX, oY, , oAngle)

                End If

                iSymbolcount = iSymbolcount + 1

            Else

            End If

        Next

        'For Each oRow As DataRow In oPipe_Dt.Rows

        '    Dim oSymbol As String = oRow("Symbol").ToString()

        '    Dim oStartPos_x As Double = 0.0

        '    Dim oStartPos_y As Double = 0.0

        '    Dim oEndPos_x As Double = 0.0

        '    Dim oEndPos_y As Double = 0.0

        '    If IsNumeric(oRow("start_x").ToString()) Then

        '        oStartPos_x = Double.Parse(oRow("start_x").ToString())

        '    End If

        '    If IsNumeric(oRow("start_y").ToString()) Then

        '        oStartPos_y = Double.Parse(oRow("start_y").ToString())

        '    End If

        '    If IsNumeric(oRow("end_x").ToString()) Then

        '        oEndPos_x = Double.Parse(oRow("end_x").ToString())

        '    End If

        '    If IsNumeric(oRow("end_y").ToString()) Then

        '        oEndPos_y = Double.Parse(oRow("end_y").ToString())

        '    End If

        '    Dim objConnector As LMConnector

        '    Dim objInputs As PlaceRunInputs

        '    objInputs = New PlaceRunInputs

        '    objInputs.AddPoint(oStartPos_x, oStartPos_y)

        '    objInputs.AddPoint(oEndPos_x, oEndPos_y)

        '    Dim objItem As LMAItem

        '    objItem = objPlacement.PIDCreateItem(oSymbol)

        '    objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        '    'Dim objPipeRun As LMPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        '    'objPipeRun.Attributes("OperFluidCode").Value = "AFS"

        '    'objPipeRun.Commit()

        '    pipecnt = pipecnt + 1

        'Next

        MsgBox("symbol: " & iSymbolcount & "개, pipe : " & iPipecnt & "개 변환완료")

    End Function

    Private Sub Tree_XMLFiles_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles Tree_XMLFiles.AfterCheck

        If e.Node.Checked = True Then

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = True

            Next

        Else

            For Each oNode As TreeNode In e.Node.Nodes

                oNode.Checked = False

            Next

        End If

    End Sub

    Private Sub LoadDB(ByVal sDBPath As String)

        Try

            Dim sConnectionstring As String = "Data Source=" & sDBPath & ";Version=3;Synchronous=Off;UTF8Encoding=True;"

            Dim conn As SQLiteConnection = New SQLiteConnection(sConnectionstring)

            conn.Open()

            Dim sQuery As String = "Select * from Mapping"

            Dim cmd As SQLiteCommand = conn.CreateCommand()

            Dim adapter As SQLiteDataAdapter = New SQLiteDataAdapter(sQuery, conn)

            Dim oDataSet As DataSet = New DataSet()

            adapter.Fill(oDataSet)

            _DB = oDataSet.Tables(0)

        Catch ex As Exception

        End Try

    End Sub

    Dim first_start As Boolean = False

    Dim folders_path As String

    Private Sub Tree_XMLFiles_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles Tree_XMLFiles.AfterSelect

        If first_start = False Then Exit Sub

        Dim pa = e.Node.FullPath.ToString

        printfilesfolders_here(pa, e.Node)

        displayfiles(pa)

        ''be careful ! displayfils comes BEFORE you change // to / in pa !!!

        Dim coco As String = ""

        coco = pa.ToString

        coco = coco.Replace("\\", "\")

        Me.Text = coco

        folders_path = coco

    End Sub

    Sub printfilesfolders_here(ByVal path As String, ByRef itree As TreeNode)

        Dim foldername As String

        Dim filename As String

        itree.Nodes.Clear()

        On Error GoTo eee

        For Each foldername In Directory.GetDirectories(path)

            On Error GoTo eee

            Dim jj = foldername.LastIndexOf("\")

            Dim jj1 = foldername.Length - jj

            Dim foldr = foldername.Substring((jj + 1), (jj1 - 1))

            itree.Nodes.Add(foldr, foldr)

        Next ' if you put this next at the end of procedure recursive will be done on first folder only

        Exit Sub

eee:

    End Sub

    Sub displayfiles(ByVal path As String)

        Dim lvItem As ListViewItem

        ListView_File.Items.Clear()

        Me.ToolStripProgressBar1.Visible = True

        ' lvItem = ListView.Items.Add("ListViewItem1")

        '   lvItem.SubItems.AddRange(New String() {"Size", "extention", "date modified"})

        Dim filename As String

        On Error GoTo wwq

        ' Directory.GetFiles(path).Length.

        Me.ToolStripProgressBar1.Maximum = Directory.GetFiles(path).Length + 1

        Me.ToolStripProgressBar1.Value = 0

        For Each filename In Directory.GetFiles(path)

            On Error GoTo wwq

            Dim jj_ = filename.LastIndexOf("\")

            Dim jj1_ = filename.Length - jj_

            Dim fil = filename.Substring((jj_ + 1), (jj1_ - 1))

            If fil.Contains(".xml") Then

                Me.ToolStripProgressBar1.Value = Me.ToolStripProgressBar1.Value + 1

                ' ListView.Items.Add(fil, 13) ''old 13 28

                lvItem = ListView_File.Items.Add(fil, 13) '2 5 7 work, 0 alos

                Dim infoReader As System.IO.FileInfo

                infoReader = My.Computer.FileSystem.GetFileInfo(filename)

                '    lvItem.SubItems.AddRange(New String() {infoReader.Length.ToString + " Byte", infoReader.Extension.ToString, infoReader.LastWriteTime})

                lvItem.SubItems.AddRange(New String() {infoReader.LastWriteTime})

                ListView_File.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)

            End If

        Next

        Me.ToolStripProgressBar1.Visible = False

        Exit Sub

wwq:

        Me.ToolStripProgressBar1.Visible = False

        MsgBox(Err.Description)

    End Sub

    Private Sub Tree_XMLFiles_MouseMove(sender As Object, e As MouseEventArgs) Handles Tree_XMLFiles.MouseMove

        first_start = True

    End Sub

    Private Sub ListView_File_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView_File.SelectedIndexChanged

        Dim indexes As ListView.SelectedIndexCollection =

                         Me.ListView_File.SelectedIndices

        Dim index As Integer

        For Each index In indexes

            'On Error Resume Next

            If folders_path.EndsWith("\") = True Then

                Me.Status_Main.Items(0).Text = folders_path + (Me.ListView_File.Items(index).Text)

                'On Error Resume Next

            Else

                Me.Status_Main.Items(0).Text = folders_path + "\" + (Me.ListView_File.Items(index).Text)

            End If

            Dim infoReader As System.IO.FileInfo

            infoReader = My.Computer.FileSystem.GetFileInfo(Me.Status_Main.Items(0).Text)

            Me.Status_Main.Items(1).Text = " Created : " + infoReader.CreationTime.ToString + " " + infoReader.Attributes.ToString

        Next

    End Sub

    Private Sub Procees()

        Dim indexes As ListView.SelectedIndexCollection =

                            Me.ListView_File.SelectedIndices

        Dim index As Integer

        For Each index In indexes

            'On Error Resume Next

            If folders_path.EndsWith("\") = True Then

                On Error GoTo out

                Me.Status_Main.Items(0).Text = folders_path + (Me.ListView_File.Items(index).Text)

                On Error GoTo out

                'On Error Resume Next

            Else

                Me.Status_Main.Items(0).Text = folders_path + "\" + (Me.ListView_File.Items(index).Text)

                On Error GoTo out

            End If

            Dim infoReader As System.IO.FileInfo

            infoReader = My.Computer.FileSystem.GetFileInfo(Me.Status_Main.Items(0).Text)

            Me.Status_Main.Items(1).Text = " Created : " + infoReader.CreationTime.ToString + " " + infoReader.Attributes.ToString

            On Error GoTo out

            MsgBox(Me.Status_Main.Items(0).Text + " is processed")

            On Error GoTo out

        Next

        Exit Sub

out:

        MsgBox(Err.Description)

    End Sub

    Private Sub Btn_Convert_Click(sender As Object, e As EventArgs) Handles Btn_Convert.Click

        If ListView_File.Items.Count > 0 Then

            For Each oItem As ListViewItem In ListView_File.Items

                If oItem.Checked Then

                    Dim sDwgName As String = oItem.Text

                    Dim sDwgNo As String = oItem.Text

                    Dim oDwgPath As String = ""

                    oDwgPath = Tree_XMLFiles.SelectedNode.FullPath + "\" + sDwgName

                    Dim sPlantGroupName As String = "Test"

                    Dim sTemplateName As String = "Gazprom Project.pid"

                    Dim oPipe_Dt As DataTable = LoadPipeInXml(oDwgPath)

                    Dim oSymbol_Dt As DataTable = LoadSymbolInXml(oDwgPath)

                    '도면 생성

                    If CreateDwg(sDwgName, sPlantGroupName, sTemplateName) Then

                        'AutoConverting

                        AutoConverting(oPipe_Dt, oSymbol_Dt)

                    End If

                End If

            Next

        End If

    End Sub

End Class