Autor Tema: Unidades y tipo  (Leído 888 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 204
Unidades y tipo
« en: Febrero 27, 2022, 10:16:35 am »
Palabras clave: unidades, mapeo, tipo
Autor: ¿?

Objetivo
Listar las unidades de nuestro ordenador ya sean físicas, extraíbles o de red para obtener su tipo.


Código: [Seleccionar]
Function TestUnidades()
    Dim objDrv      As Object
    Dim strMsg      As String
 
    For Each objDrv In CreateObject("Scripting.FileSystemObject").Drives
        Select Case objDrv.DriveType
            Case 0: strMsg = strMsg & vbNewLine & objDrv.DriveLetter & ": Unknown"
            Case 1: strMsg = strMsg & vbNewLine & objDrv.DriveLetter & ": Removable Drive"
            Case 2: strMsg = strMsg & vbNewLine & objDrv.DriveLetter & ": Hard Disk Drive"
            Case 3: strMsg = strMsg & vbNewLine & objDrv.DriveLetter & ": Network Drive"
            Case 4: strMsg = strMsg & vbNewLine & objDrv.DriveLetter & ": CDROM Drive"
            Case 5: strMsg = strMsg & vbNewLine & objDrv.DriveLetter & ": RAM Disk Drive"
        End Select
    Next
    Debug.Print strMsg
    Set objDrv = Nothing
End Function