語法
物件。駕駛
物件始終是 FileSystemObject。
註解
可移除媒體光碟機不需要插入媒體,才能出現在 磁碟 機集合中。
你可以透過使用 For Each... 來迭代 Drives 集合的成員。 下一個 結構如以下程式碼所示。
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 支援與意見反應。