Поделиться через


Свойство Drives

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

Синтаксис

object. Диски

Объект всегда является FileSystemObject.

Замечания

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

Вы можете выполнить итерацию членов коллекции Дисков с помощью параметра 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 = 3 Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

См. также

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

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