منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة جلب نوع ملفات معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة جلب نوع ملفات معينة (/showthread.php?tid=50863)

طريقة جلب نوع ملفات معينة - heem1986 - 29-12-24

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

RE: طريقة جلب نوع ملفات معينة - princelovelorn - 30-12-24

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


كود :
 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


RE: طريقة جلب نوع ملفات معينة - heem1986 - 30-12-24

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

RE: طريقة جلب نوع ملفات معينة - aljzazy - 31-12-24

لجلب جميع أسماء الملفات التي تحمل امتداد .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