폴더 목록 가져오기 / 최소값 찾기

VNote 2018.03.12 12:39:22 *: Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = 0
Dim array(90) As String
For Each foundDir As String In My.Computer.FileSystem.GetDirectories("D:\새 폴더")

Dim fi As New IO.DirectoryInfo(foundDir)

ListBox1.Items.Add(fi.Name)

' array(x) = fi.Name.ToString


x += 1

Next


End Sub
End Class

dsa.GIF