Coleção de drives

Coleção só de leitura de todas as unidades disponíveis.

Comentários

As unidades de suporte de dados amovíveis não precisam de ter um suporte de dados inserido para que apareçam na coleção Unidades .

O código seguinte ilustra como obter a coleção Unidades e iterar a coleção com a opção Para Cada... Instrução seguinte :

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

Confira também

• Objeto do drive
• Objetos (Visual Basic for Applications)
• Referência de biblioteca de objetos do Office (membros, propriedades, métodos)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.