[ابو روضة]

(29-09-18, 10:20 AM)عبدالله الدوسري كتب : الآن فهمت عليك : هكذا تقصد



هذا الكود :

كود :

       Using ofb As New OpenFileDialog
           ofb.InitialDirectory = ""
           ofb.Multiselect = True
           If ofb.ShowDialog() = DialogResult.OK Then
               For i As Integer = 0 To ofb.FileNames.Count - 1

                   Dim FullName As String = ofb.FileNames(i)
                   Dim OnlyFileName As String = IO.Path.GetFileNameWithoutExtension(FullName)

                   ListBox1.Items.Add(OnlyFileName)
               Next
           End If
       End Using

IO.Path.GetFileNameWithoutExtension
هذة الوظيفة تعطيها اسم الملف بالكامل مع المسار 
ترجع لك اسم الملف فقط بدون الثلاث أحرف المرافقة للملف ( امتداد الملف )

فعلا جلبتهم بألأسماء فقط استاذى بارك الله فيك....
لكن لم يشتغلو وكأنهم اسماء فقط دون المسار
يعنى حينما اضغط على اى ملف من الليست بوكس لا يعمل داخل المشغل
وهذا كود التشغيل الذى استعمله
        Player.URL = ListBox1.SelectedItem

---

(29-09-18, 10:22 AM)معاذ_ابراهيم كتب : استخدم اداة ال FileListbox اضفها من قائمة ال ChooseToolboxItems 
 هي شبيهه List Box تحتوي على خصائص جميله حدد المسار باستخدام خاصيه Path  وبئمكانك تحديد فلتر لهذه الملفات

حقيقة اول مرة اسمع عنها هابحث عنها حاضر الله يكرمك