(Source) Detectar unidades extraibles USB

[seba123neo]

pero lo que yo digo es que detecte por ejemplo si tiene un cd la lectora o no...en tu caso siempre pondria que existe.. existe pero no esta lista...con la constante

Código (vb) [Seleccionar] Expandir

Public Const IOCTL_STORAGE_CHECK_VERIFY As Long = &H2D4800

y la api DeviceIoControl , podes comprobar la disponibilidad de la unidad...podes buscar sobre eso...que en internet hay ejemplos ya realizados de lo que digo...

saludos

[cobein]

Public Function IsDriveReady(ByVal sDrive As String) As Boolean
    sDrive = Left(sDrive, 1) & ":\"
    IsDriveReady = GetVolumeInformation(sDrive, vbNullString, _
       0, 0, 0, 0, vbNullString, 0)
End Function

[demoniox12]

Public Function IsDriveReady(ByVal sDrive As String) As Boolean
    sDrive = Left(sDrive, 1) & ":\"
    IsDriveReady = GetVolumeInformation(sDrive, vbNullString, _
       0, 0, 0, 0, vbNullString, 0)
End Function

Muchas gracias cobein y a los demas tambien =) pero me ha servido esta ultima respuesta...

dejo la declaracion de la api..

Código (vb) [Seleccionar] Expandir

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Saludos!

[locoedu]

hi. gracias por los aportes ..tengo una pregunta hice mi aplicacion la cosas que que cuando inserto el pendrive me muestre un mensaje si quiero que el windows lo reconozca o no.. algo asi me dejo entender? si le doy "SI" que siga con lo demas y que me muestre en mi pc el dispositovo , si lo doy NO que se plante ahi y que no lo reconozca nada entiendes?? bueno ojala que puedan ayudar . gracias