[3booody]

[COLOR="#800000"]اعتذر عن تأخري وبسبب انقطاع الكهرباء والله يعين اهل العراق على الكهرباء
تفضل طلبك اخي لكن المشكله انه يبحث داخل مسار معين مثلآ القرص c
من مجال الاسماء استدعي[/COLOR]
Imports System.IO
واكتب الكود في حدث TextBox1_TextChanged واضف ليست بوكس

كود :

For Each IO As String In Directory.GetDirectories("C:\")
            Dim i As Integer = IO.Split("\").Count - 1
            If InStr(IO.Split("\")(i), TextBox1.Text) Then
                ListBox1.Items.Add(IO.Split("\")(i))
            End If
        Next