[yasob]

تصحيح الكود فى المشروع المرفق بحيث عند اختيار فولد من القائمة المنسدلة فى ال combobox الاول يسرد لى ما بداخل هذا الفلدر من فولدرات فرعية فى ال combobox الثانى

[الوادي]

المشكلة تحدث في CombpBox1 حيث يحتوى اسماء الملفات بدون المسار
جرب الان

PHP كود :

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ComboBox1.Items.AddRange(IO.Directory.GetDirectories(TextBox1.Text).ToArray)

    End Sub


    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        ComboBox2.Items.AddRange(IO.Directory.GetFiles(ComboBox1.Text).ToArray)

    End Sub 


[yasob]

شكرا لاهتمامك بس انا عايز اسماء الفلدرات فقط الى تظهر من غير المسار الكامل

[الوادي]

الفلدرات ولا الملفات؟ وفي أي ComboBox الأول او الثاني؟

[yasob]

الملفات والفلدرات وفى ال comcobox الاول والثانى

[الوادي]

هذا التعديل

PHP كود :

Public Class Form1

    Dim files As String()

    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
            files = IO.Directory.GetDirectories(TextBox1.Text)
            ComboBox1.Items.AddRange(files.Select(Function(name) IO.Path.GetFileName(name)).ToArray)
        End If
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        ComboBox2.Items.AddRange(IO.Directory.GetFiles(files(ComboBox1.SelectedIndex)).Select(Function(name) IO.Path.GetFileName(name)).ToArray)

    End Sub

End Class