Como reconocer una unidad

Esta función devuelve el tipo de unidad enviada. Por ejemplo: TipoUnidad(“F”)

En un módulo:

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Const DRIVE_CDROM = 5
Public Const DRIVE_ERROR = 1
Public Const DRIVE_FIXED = 3
Public Const DRIVE_RAMDISK = 6
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_REMOVABLE = 2

En cualquier formulario o módulo:

Function TipoUnidad(Unidad As String) As String
    Dim Ddf As String, lUnidad As Long, Texto As String

    ' Recoge la unidad enviada y la formatea
    Ddf = Left$(Unidad, 1) & ":"
    lUnidad = GetDriveType(Ddf)
    Select Case lUnidad
        Case DRIVE_ERROR:
            Texto = "Unidad no valida"
        Case DRIVE_CDROM:
            Texto = "Es un CD-Rom"
        Case DRIVE_FIXED
            Texto = "Unidad de disco duro"
        Case DRIVE_RAMDISK
            Texto = "Unidad disco virtual"
        Case DRIVE_REMOTE:
            Texto = "Unidad de red"
        Case DRIVE_REMOVABLE:
            Texto = "Disquetera"
        Case Else:
            Texto = "Unidad desconocida"
    End Select
    TipoUnidad = Texto
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s