Detectar Pendrive

[mustafalfs]

Hola
Te puedo orientar solo un poco no se si te servirá.

Para detectar si un pen drive esta conectado por lo poco que se es que vas a tener que llamar a la Api.

Por otro lado si cuando conectas un pen drive querés que te seleccione automáticamente la letra de esa unidad ahí si te va a servir el código.
(no te servirá para tarjetas SD etc.) ya que no hay cambios de unidades cuando conectas o desconectas estas tarjetas.

Esta hecho para VB6.
Estoy recién aprendiendo seguro hay algún método mejor y es probable que alguien me corrija el código pero lo importante es que funciona.

Controles:
DriveListBox x 2 Drive1 y Drive2 (Drive2 con propiedad visible en false)
Label x 1
CheckBox x 1

----------------------------------------------------
Dim uni0(26)
Dim uni1(26)
Dim marca

Private Sub Check1_Click()
If Check1.Value = 1 Then detectar

End Sub

Private Sub Command2_Click()
cancel = "on"
Command1.Visible = True
End Sub

Private Sub Form_Activate()
detectar
End Sub

Private Sub unidad0()
For i = 0 To Drive2.ListCount - 1
uni0(i) = Drive2.List(i)
Next
End Sub
Private Sub unidad1()
On Error GoTo sale
For i = 0 To Drive2.ListCount - 1
uni1(i) = Drive2.List(i)
If uni0(i) <> uni1(i) Then Drive2.Drive = uni1(i): marca = 1: Drive1 = Drive2: Exit For
Next
Exit Sub
sale:
unidad0
End Sub
Private Sub detectar()

Label1 = "Deteccion: ON"
marca = 0
unidad0
While marca = 0
Drive2.Refresh
DoEvents
unidad1

Wend
Label1 = "Deteccion: OFF"
Check1.Value = 0
End Sub

Private Sub Form_QueryUnload(cancel As Integer, UnloadMode As Integer)
End
End Sub
----------------------------------------------------------------