[heem1986]

السلام عليكم 
لدية مجلد يحمل أسماء قاعدة بيانات بإمتداد mdf  كل ما أريده هو جلب جميع أسماء الملفات التى بالمجلد وتحمل إمتداد mdf  فقط دون غيرها  إلى كومبوبوكس  ولكم جزيل الشكر

[princelovelorn]

وعليكم السلام ورحمة الله وبركاته

كود :

 Private Sub getfiles()
       Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
       'يمكنك تغيير المسار حسب ما تريد
       files = My.Computer.FileSystem.GetFiles("C:\Users\data\Documents", FileIO.SearchOption.SearchTopLevelOnly, "*.mdf*")

       'لجلب الملفات من مسار مجلد البرنامج
       '  files = My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Data", FileIO.SearchOption.SearchTopLevelOnly, "*.mdf*")

       Dim i As Integer
       For i = 0 To files.Count - 1
           ComboBox1.Items.Add(IO.Path.GetFileName(files.Item(i)))
       Next
   End Sub

[heem1986]

جزاك الله خيراً princelovelorn
والله كنت واقف على هذا التعديل للعميل لانه يريد مع بداية كل عام أنشاء قاعدة بيانات جديدة فارغة وأختيار قاعدة البيانات من كومبوبوكس سواء الجديدة أو القديمة 

[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