Drives (Propiedad)
Descripción
Devuelve una colección Drives que se compone de los objetos Drive disponibles en la máquina local.
Sintaxis
objeto.Drives
El objeto es siempre un objeto FileSystemObject.
Comentarios
No es necesario que las unidades de medios separables tengan medios introducidos para que aparezcan en la colección Drives.
Puede recorrer los miembros de la colección Drives utilizando una construcción For Each...Next como se demuestra 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