[Abu Ehab]

[h=2][/h] [INDENT] للبحـــــــث عن المجـلدات بأول حرف في تسميتها

PHP كود :

Dim A() As String
        Dim J As Integer
        ListBox1.Items.Clear()
        A = Directory.GetDirectories("F:\", "K*")
        For J = 0 To A.Length - 1
            ListBox1.Items.Add(A(J))
        Next 


[/INDENT]