Propiedad Drives
Devuelve una colección Drives que consta de todos los objetos Drive disponibles en el equipo local.
Sintaxis
objeto . Unidades
El objeto siempre es un Objeto FileSystemObject.
Comentarios
Las unidades de medios extraíbles no necesitan tener medios insertados para aparecer en la colección Drives.
Puede recorrer en iteración los miembros de la colección Drives mediante un elemento For Each... Siguiente construcción como se muestra en el código siguiente.
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 = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub
Vea 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.