پیدا کردن تمام درایوهای سیستم

[mehrdad hamid reza]

میخوام تمام درایوهای سیستم را در یک combobox داشته باشم

[Mani_rf]

For Drive As Byte = 0 To My.Computer.FileSystem.Drives.Count - 1
ComboBox1.Items.Add(My.Computer.FileSystem.Drives. Item(Drive))
Next

[BehzadBar]

با احترام به روش مانی اینم یه روش دیگه



Private Sub FillDrivesInComboBox()
Dim drives() As DriveInfo = DriveInfo.GetDrives
Dim drive As DriveInfo
For Each drive In drives
If drive.IsReady Then
Me.cmbDrives.Items.Add(drive.Name & drive.VolumeLabel)
Else
Me.cmbDrives.Items.Add(drive.Name)
End If
Next
End Sub