DriveType (Propiedad)

           

Descripción

Devuelve un valor que indica el tipo de una unidad especificada.

Sintaxis

objeto.DriveType

El objeto es siempre un objeto Drive.

Comentarios

El código siguiente demuestra la utilización de la propiedad DriveType:

Sub ShowDriveType(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(drvpath)
    Select Case d.DriveType
        Case 0: t = "Desconocido"
        Case 1: t = "Separable"
        Case 2: t = "Fijo"
        Case 3: t = "Red"
        Case 4: t = "CD-ROM"
        Case 5: t = "Disco RAM"
    End Select
    s = "Unidad " & d.DriveLetter & ": - " & t
    MsgBox s
End Sub