Коллекция Drives

Коллекция всех доступных дисков, доступная только для чтения.

Замечания

В дисководы для съемных носителей не следует вставлять носители, чтобы отобразить их в коллекции Диски.

В следующем коде показано, как получить коллекцию Drives и выполнить ее итерацию с помощью параметра For Each... Следующая инструкция:

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

См. также

• Объект Drive
• Объекты (Visual Basic для приложений)
• Справочник по библиотеке объектов для Office (элементы, свойства, методы)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.