Drives (Colección)
Descripción
Colección de sólo lectura de todas las unidades disponibles.
Comentarios
No hace falta que las unidades de medios separables tengan medios introducidos para que aparezcan en la colección Drives.
El código siguiente demuestra cómo conseguir la colección Drives y recorrer la colección utilizando la instrucción For Each...Next:
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