creo q GETDRIVETYPE reconoce cualquier dispositivo USB q se conecte a la PC
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúshell "explorer.exe"
ESTO EN UN MODULO
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Function verificarUSB(pat) As Boolean
drv = GetDriveType(pat)
If Not drv = 2 Then '2 indica la USB
verificarUSB = False
Else
verificarUSB = True
End If
End Function
ESTO EN EL FORM
Private Sub Timer1_Timer()
For num = 68 To 90
If fso.DriveExists(Chr(num)) Then
unidad = Chr(num) & ":\" 'va a tener el nombre de la unidad
If verificarUSB(unidad) Then
'****ACA LO Q QUIERAS HACER
End If
Else
Exit For
End If
Next
End Sub