[VB.net] 파일 선택 후 리스트뷰에 종류별로 분할하여 출력하기

어쩌다가 시작한 VB.Net

아직 책도 안 오고 도구상자도 사용할 줄 몰라 무식하게 구글링 후 코딩

파일 불러오기 대화창에서 파일을 다중 선택하면

리스트뷰에 폴더, 파일명, 확장자, 파일크기 등으로 나누어서 출력해주는 코드

이미지 파일과 PDF파일만 선택하도록 필터링되어있다.

코드는 내가 짰지만 파일은 나의 것이 아니기에 코드만 업로드.

   Private Sub C1Button1_Click(sender As Object, e As EventArgs) Handles C1Button1.Click

        Dim Files As String

        Dim v(4) As String

        Dim fileInfo As FileInfo

        Dim i As Integer

        OpenFileDialog1().ShowDialog()

        '선택한 파일명을 배열에 담고 리스트뷰에 목록 뿌리기

        For Each Files In OpenFileDialog1.FileNames

            fileInfo = New FileInfo(Files)

            v(0) = Path.GetDirectoryName(Files)

            v(1) = Path.GetFileNameWithoutExtension(Files)

            v(2) = fileInfo.Extension

            v(3) = Math.Round(fileInfo.Length / 1024, 2)

            v(4) = Now()

            lvView.Items.Add(New ListViewItem(v))

        Next Files

        Erase v

        '리스트뷰 자동열맞춤

        For i = 0 To lvView.Columns.Count - 1

            lvView.AutoResizeColumn(i, ColumnHeaderAutoResizeStyle.ColumnContent)

        Next i

    End Sub