Compartir a través de


Colección Drives

Colección de solo lectura de todas las unidades disponibles.

Comentarios

Las unidades de medios extraíbles no necesitan tener medios insertados para aparecer en la colección Drives.

En el código siguiente se muestra cómo obtener la colección Drives y recorrer en iteración la colección mediante For Each... Siguiente instrucción:

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.