[VB.net] 현재 폴더의 모든 파일 및 폴더 이름 불러오기

 

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim dir As New IO.DirectoryInfo(TextBox1.Text)
        Dim fname As IO.FileInfo
        Dim fname2 As IO.DirectoryInfo
 
        For Each fname In dir.GetFiles()
            ListBox1.Items.Add(fname)
        Next
 
        For Each fname2 In dir.GetDirectories()
            ListBox1.Items.Add(fname2)
        Next
 
    End Sub
End Class