Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each i In System.IO.DriveInfo.GetDrives
If i.IsReady = True Then
Dim t As String = i.Name
If i.VolumeLabel <> "" Then t &= "" & i.VolumeLabel & ""
CheckedListBox1.Items.Add(t)
End If
Next
End Sub
Private Sub WhatIsChecked_Click_1(sender As Object, e As EventArgs) Handles WhatIsChecked.Click
Dim indexChecked As Integer
Dim itemChecked As Object
For Each indexChecked In CheckedListBox1.CheckedIndices
'MsgBox(CheckedListBox1.Items(CheckedListBox1.SelectedIndex).ToString)
Shell("cmd.exe /c explorer " & CheckedListBox1.Items(CheckedListBox1.SelectedIndex).ToString, vbHide)
Next
For Each itemChecked In CheckedListBox1.CheckedItems
MessageBox.Show("Dispositivo " + CheckedListBox1.Items(CheckedListBox1.SelectedIndex).ToString + " EXPLORADO ")
Next
End Sub
End Class