vb determina si hay un disco duro móvil

Función de declaración privada GetDriveType Lib "kernel32" Alias ​​​​"GetDriveTypeA" (ByVal nDrive como cadena) siempre

Private Sub Combo1_Click()

Dim x As Long

Dim buff As String

buff = Combo1.Text "：\"

x = GetDriveType(buff)

Seleccionar caso x

Caso 2

Label1.Caption = "Esta unidad es una unidad extraíble"

Caso 3

Label1.Caption = "Esta unidad es una unidad extraíble "