¿Como saber qué tipo de disco tiene asignada una unidad?


Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Function TipoUnidad(ByVal strLetraUnidad As String) As String
    Select Case GetDriveType(strLetraUnidad)
        Case 2: TipoUnidad = "Removable"
        Case 3: TipoUnidad = "Drive Fixed"
        Case 4: TipoUnidad = "Remote"
        Case 5: TipoUnidad = "Cd-Rom"
        Case 6: TipoUnidad = "Ram disk"
        Case Else: TipoUnidad = "Unrecognized"
    End Select
End Function