[HASAN6.0]

هل هذا ما تقصد

PHP كود :

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