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