14-01-21, 10:31 PM
(14-01-21, 09:52 PM)سعود كتب :اول شيء يخزن مسار المجلد في الـMysettings في قائمة Myfolderضمن زر جديد مكتوب الكود:PHP كود :
Dim fbd As New FolderBrowserDialog
If fbd.ShowDialog = DialogResult.OK Then
My.Settings.myfolder.Add(fbd.SelectedPath)
My.Settings.Save()
gd()
End Ifاجراء gd هو اللي يجلب المجلدات اللي اخترتهم وخزنتهم في Myfolder ضمن MysettingsPHP كود :
Private Sub gd()
lst.Clear()
lst2.Clear()
ListBox1.Items.Clear()
ComboBox1.Items.Clear()
If My.Settings.myfolder.Count > 0 Then
For Each h As String In My.Settings.myfolder
If h.Trim <> "" Then
ComboBox1.Items.Add(IO.Path.GetFileName(h))
lst.Add(h)
End If
Next
End If
Dim t As String = My.Settings.Appdes
If t.Trim <> "" Then
lbltitle.Text = t
End If
End Sub
انا لدى مجلد به كل سور القرءان ولما بختاره من زر جديد يجلب فقط اسم المجلد داخل الكومبوبوكس
لكنه لا يجلب اى ملف صوتى من داخل المجلد

