[aljzazy]

لجلب جميع أسماء الملفات التي تحمل امتداد .mdf من مجلد معين وعرضها في ComboBox في برنامج Visual Basic، يمكنك استخدام الكود التالي:
الكود:
vb
نسخ الكود

كود :

Imports System.IO

Public Sub LoadMdfFilesToComboBox(folderPath As String)
   ' التأكد من أن المجلد موجود
   If Directory.Exists(folderPath) Then
       ' الحصول على جميع الملفات التي تحمل امتداد .mdf
       Dim mdfFiles As String() = Directory.GetFiles(folderPath, "*.mdf")
       
       ' مسح العناصر الموجودة في الكومبوبوكس
       ComboBox1.Items.Clear()
       
       ' إضافة الملفات إلى الكومبوبوكس
       For Each file As String In mdfFiles
           ' إضافة اسم الملف فقط بدون المسار الكامل
           ComboBox1.Items.Add(Path.GetFileName(file))
       Next
   Else
       MessageBox.Show("المجلد غير موجود.")
   End If
End Sub

شرح الكود:

1. Directory.Exists(folderPath): يتحقق ما إذا كان المجلد الذي تم تمريره موجودًا أم لا.
   
2. Directory.GetFiles(folderPath, "*.mdf"): يحصل على جميع الملفات التي تحمل امتداد .mdf في المجلد المحدد.
   
3. Path.GetFileName(file): يستخرج اسم الملف فقط بدون المسار الكامل، وبالتالي يتم عرض اسم الملف فقط في ComboBox.
   
4. ComboBox1.Items.Clear(): ينظف محتويات ComboBox قبل إضافة الملفات الجديدة.
   
5. إذا كان المجلد غير موجود، تظهر رسالة تحذير.
   

كيفية الاستخدام:

1. قم بتمرير مسار المجلد إلى الدالة
   LoadMdfFilesToComboBox
2. ، مثل:
   

vb
نسخ الكود

كود :

LoadMdfFilesToComboBox("C:\Path\To\Your\Folder")

1. ستظهر أسماء ملفات .mdf في ComboBox