Public Class Form1 Dim li As New List(Of String) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try MsgBox(li(Val(TextBox1.Text))) Catch ex As Exception
End Try End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MsgBox(IO.Directory.GetDirectories("C:\").Length) End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load li.AddRange(IO.Directory.GetDirectories("C:\").ToList) End Sub End Class