HYTOS

Imports System.IO

Public Class LoadXml

    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)

        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()

        Dim filename As String

        On Error GoTo wwq

        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

                lvItem = ListView_File.Items.Add(filename, 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.LastWriteTime})

                ListView_File.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)

            End If

        Next

        Exit Sub

wwq:

        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 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)

        ListView_File.View = View.Details

    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 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 LoadXml_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        SetUpListViewColumns()

        LoadTree()

    End Sub

    Public ReadOnly Property GetCheckList() As ListView

        Get

            Return ListView_File

        End Get

    End Property

    Private Sub Btn_Add_Click(sender As Object, e As EventArgs) Handles Btn_Add.Click

        Me.Close()

    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

End Class