[silverlight]

PHP كود :

   Public 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 


الكود هذا سوف يساعدك علي قراءة جميع Drivers و هو سوف يعطيك مصفوفة عناصرها عبارة عن DriveInfo و يمكنك هنا التعامل مع كل عنصر في المصفوفة علي حده
وهذه دالة اخري سوف تعطيك فكرة عن كيفية التأكد من أن اي Drive جاهز للإستخدام

PHP كود :

   Public Function IsReadyDrive(driveName As String) As Boolean
        Dim driveInfo As IO.DriveInfo = New IO.DriveInfo(driveName)
        Return driveInfo.IsReady
    End Function 


عليك فقط أن تمرر مها DriveInfo.Name من الدالة الأولي


و الكود التالي للتوضيح فقط

PHP كود :

       For Each drive As IO.DriveInfo In GetLocalDrives()
            Me.ListBox1.Items.Add(drive.Name & ":" & drive.DriveType.ToString)
        Next