السلام عليكم
لدية مجلد يحمل أسماء قاعدة بيانات بإمتداد mdf كل ما أريده هو جلب جميع أسماء الملفات التى بالمجلد وتحمل إمتداد mdf فقط دون غيرها إلى كومبوبوكس ولكم جزيل الشكر
وعليكم السلام ورحمة الله وبركاته
كود :
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
لجلب جميع أسماء الملفات التي تحمل امتداد
.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
شرح الكود:
- Directory.Exists(folderPath): يتحقق ما إذا كان المجلد الذي تم تمريره موجودًا أم لا.
- Directory.GetFiles(folderPath, "*.mdf"): يحصل على جميع الملفات التي تحمل امتداد .mdf في المجلد المحدد.
- Path.GetFileName(file): يستخرج اسم الملف فقط بدون المسار الكامل، وبالتالي يتم عرض اسم الملف فقط في ComboBox.
- ComboBox1.Items.Clear(): ينظف محتويات ComboBox قبل إضافة الملفات الجديدة.
- إذا كان المجلد غير موجود، تظهر رسالة تحذير.
كيفية الاستخدام:
- قم بتمرير مسار المجلد إلى الدالة
LoadMdfFilesToComboBox
- ، مثل:
vb
نسخ الكود
كود :
LoadMdfFilesToComboBox("C:\Path\To\Your\Folder")
- ستظهر أسماء ملفات .mdf في ComboBox