[samehfido]

(01-04-14, 05:08 PM)سعود كتب :

كود :

Imports System.IO
Public Class Form1
    Dim dirs As New List(Of String)
    Dim pa As String = "g:\"
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Clear()
        For Each d In Directory.GetDirectories(pa)
            dirs.Add(d)
            ComboBox1.Items.Add(IO.Path.GetFileName(d))
        Next
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Process.Start(dirs.Item(ComboBox1.SelectedIndex))
    End Sub
End Class

فكره جميله ورائعه شكراً