تقييم الموضوع :
  • 1 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في اضهار جميع الدرايفرات بجهازي
#1
Exclamation 
السلام عليكم

مرحبا إخواني

باستخدامي للدالة

ListBox1.Items.AddRange(System.IO.DriveInfo.GetDrives)

والتي تقوم باضهار جميع الدرايفرات بجهازي

لاحضت أن جهاز هاتفي و جهاز التصوير لا يتم التعرف عليهم

وعند الدخول للكمبيوتر , ألاحض أنهم مصنفين في الأسفل  amovible





وهدا هو الرابط الذي يأخده     Ordinateur\jawad





ليس مثل C:\test   


كيف إخواني يمكنني إجاد المسار لأتعامل معه برمجيا
فأنا أريد أن أتعامل مع بعض الملفات في الهاتف أو استخراج صوري برمجيا

لكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
PHP كود :
   Public Shared Function GetLocalDrives() As List(Of IO.DriveInfo)
 
       Dim list As List(Of IO.DriveInfo) = New List(Of IO.DriveInfo)()
 
       Dim drives As IO.DriveInfo() = IO.DriveInfo.GetDrives()
 
       For i As Integer 0 To drives.Length 1
            Dim di 
As IO.DriveInfo drives(i)
 
           list.Add(di)
 
       Next
        Return 
New List(Of IO.DriveInfo)(list)
 
   End Function 
الإستخدام

PHP كود :
       For Each drive As IO.DriveInfo In GetLocalDrives()
 
           Me.ListBox1.Items.Add(drive.Name ":" drive.DriveType.ToString)
 
       Next 
الرد
تم الشكر بواسطة: عدنان الشمري , sniperjawadino
#3
PHP كود :
For Each DRV In DriveInfo.GetDrives
            Me
.ListBox1.Items.Add(DRV)
        
Next 

PHP كود :
Dim MyDrives From DRV In DriveInfo.GetDrives
        
For Each Drives In MyDrives
            Me
.ListBox1.Items.Add(Drives)
        
Next 

PHP كود :
Dim List As New ArrayList
        
List.AddRange(DriveInfo.GetDrives)

        For 
Each DRV In List
            
Me.ListBox1.Items.Add(DRV)
        
Next 

PHP كود :
Dim Drives As DriveInfo() = DriveInfo.GetDrives()
        For 
Each drive As DriveInfo In Drives
            Me
.ListBox1.Items.Add(drive.Name)
        
Next 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: عدنان الشمري , sniperjawadino
#4
silverlight



شكرا أخي الكريم على هذا الكود الجميل
لكن لم يضهر رابط الهاتف



----------------------------------------------------------------------------------


khodor1985



كذلك أخي khodor
شكرا لك لكن لم يتم إضهار إلا    C      D       G
الرد
تم الشكر بواسطة:
#5
عدم ظهور الهاتف مرتبط بفعالية الأداء الخاص ب الكلاس  DriveInof و تحديدا في جملة DriveInfo.GetDrives و التي هي ف الاصل عبارة عن Array

علي سبيل المثل عند محاولتك ان تضع شرط واحدا فقط لاسترجاع بعض البيانات من جملة GetDrives ستكتشف ان الاداء الخاص بها اصبح مغايرا تماما لما تريده لذلك الافضل ان تقرا كل البيانات الموجودة في حملة GetDrives
 
لذلك ربما يكون الأكثر دقة لك هو ان تقرأ تلك البيانات باستخدم WMI باستخدام ManagementObjectCollection لأن مايكروسوفت تخزن البيانات احيانا علي شكل داتا بيز ثم تقرأها مثلما تقرأ ملف SQL
الرد
تم الشكر بواسطة: sniperjawadino
#6
شكرا أخي على الشرح
لكن أخي هل لديك أي مثال أو كود لأجربه
في الحقيقة ليست لدي أي معرفة في WMI
الرد
تم الشكر بواسطة:
#7
للرفع حتى يتسنى للإخوان المشاركة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع فيمة فى تيكست بوكس احمد خطاب خطاب 1 18 منذ 46 دقيقة مضت
آخر رد: حريف برمجة
  [VB.NET] مشكلة حذف السجلات من قاعدة البيانات بعد اعادة التنفيذ zahraa mahdi 2 33 21-05-18, 06:11 PM
آخر رد: zahraa mahdi
  مشكلة بزر التعديل حافظ حافظ 21 262 20-05-18, 12:53 AM
آخر رد: حافظ حافظ
  مشكلة بالكود blida02 2 61 17-05-18, 10:07 PM
آخر رد: blida02
  [سؤال] مشكلة في إنشاء تقرير للطباعة سمير الجبالي 9 184 13-05-18, 03:04 AM
آخر رد: elgokr
  [VB.NET] كيف اقوم بحل مشكلة الترميز بقاعدة البيانات عند استدعائها فى الفيجوال بيسك elgokr 9 210 12-05-18, 09:40 PM
آخر رد: elgokr
  [سؤال] مشكلة الترقيم بجدول إكسس مرتبط بالفيجوال بيسك سمير الجبالي 7 125 11-05-18, 10:46 PM
آخر رد: elgokr
  مشكلة في تقرير كريستال ريبورت مع فيجوال2017 xpres 7 126 08-05-18, 11:30 AM
آخر رد: xpres
  ما هي مشكلة KeyDown فراس الغزي 2 73 07-05-18, 11:10 PM
آخر رد: viv
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 29 13,450 06-05-18, 01:07 PM
آخر رد: viv

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم