[asemshahen5]

الف شكر على هذه الذكرة الجميلة .

في الدوت نت يجب عليك عمل التالي :

أولا :

 ضع الادوات التالية على الفورم :

كومبو بوكس باسم : CmbDriveList

ليست بوكس باسم : lstDirectoryList

ليست بوكس ثان باسم : lstFileList

ثانيا :

نفتح نافذة الكود الخاصة بالفورم و نضع الكودالتالي :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CmbDriveList.DataSource = My.Computer.FileSystem.Drives
    End Sub
    Private Sub CmbDriveList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbDriveList.SelectedIndexChanged
        lstDirectoryList.DataSource = My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
    End Sub
    Private Sub lstDirectoryList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstDirectoryList.SelectedIndexChanged
        lstFileList.DataSource = My.Computer.FileSystem.GetFiles(lstDirectoryList.SelectedValue.ToString())
    End Sub 


مع أطيب تمنيتي لكم بالتوفيق و النجاح .