12/08/2010, 17:42
|
| | | Fecha de Ingreso: junio-2008
Mensajes: 24
Antigüedad: 16 años, 5 meses Puntos: 0 | |
| Respuesta: Detectar puerto USB
Al final lo consegui pude obtener un nombre de pendrive, en este caso puse si estaba o no conectado pero se puede obtener el nombre de la siguiente forma : Me.listbox1.Items.add("Nombre:" & d.VolumenLabel")
Les dejo el codigo por si lo necesitan
Dim alldrives() As DriveInfo = DriveInfo.GetDrives
Dim d As DriveInfo
For Each d In alldrives
If d.IsReady = True Then
If d.DriveType = DriveType.Removable Then
If d.VolumeLabel = "Nombre" Then
Me.ListBox1.Items.Add("Conectado")
Else
Me.ListBox1.Items.Add("Desconectado")
End If
End If
End If
Next |