¿Cómo determina vb.net si accede al disco?
El siguiente código ha sido probado con VB 2005.
Imports System.IO
Clase pública Form1
Const pública WM_DEVICECHANGE = &H219
Const pública DBT_DEVICEARRIVAL = &.H8000
Const pública DBT_CONFIGCHANGECANCELED = &H19
Const pública DBT_CONFIGCHANGED = &H18
Const pública DBT_ CUSTOMEVENT = &H8004
Constante pública DBT_DEVICREMOVEEPENDING = &H8003
Constante pública DBT_ DEVICETYPESPECIFIC = &H8005
Constante pública DBT_DEVNODES_CHANGED = & H7
Const pública DBT_QUERYCHANGECONFIG = &H17
Const pública DBT_USERDEFINED = &HFFFF
Anulaciones protegidas Sub WndProc(ByRef m As System.
Si m.Msg = WM_ DEVICECHANGE Entonces
Seleccione Caso m.WParam
Caso WM_DEVICECHANGE
Caso DBT_DEVICEARRIVAL 'Se ha insertado una unidad flash USB
Dim s() As DriveInfo = DriveInfo.GetDrives
Para cada unidad Como DriveInfo In s
p>Si drive.DriveType = DriveType.Removable Then
Label2.Text = "¡Unidad USB insertada! Tipo de unidad: "+ drive.Name.ToString()
Finalizar si
Siguiente
Caso DBT_CONFIGCHANGECANCELED
Caso DBT_CONFIGCHANGED
Caso DBT_CUSTOMEVENT
Si drive.DriveType = DriveType .Removable Then
Label2.Text = "¡Unidad USB insertada!
Caso DBT_DEVICEREMOVEPENDING
Caso DBT_DEVICETYPESPECIFIC
Caso DBT_DEVNODES_CHANGED
Caso DBT_QUERYCHANGECONFIG
Caso DBT_USERDEFINED
Finalizar selección
Finalizar si
MyBase.WndProc(m)
End Sub
Private Sub Form1_Load(ByVal remitente como System.Object, ByVal y como System.EventArgs) Han
dles MyBase.Load
Label1.Text = "¡Por favor, opere la unidad USB!"