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