如何获得本机光驱的盘符？

Question

用FSO很容易做:Option ExplicitPrivate Sub Form_Load()
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.Drives
s = s & d.DriveLetter
Select Case d.DriveType
Case 1
s = s & ": 可移动媒体驱动器" & vbCrLf
Case 2
s = s & ": 固定(不可移动)媒体驱动器器" & vbCrLf
Case 3
s = s & ": 网络驱动器共享名:" & vbCrLf
Case 4
s = s & ": CD-ROM 驱动器" & vbCrLf
Case 5
s = s & ": RAM 磁盘" & vbCrLf
Case Else
s = s & ": 无法确定驱动器类型" & vbCrLf
End Select
Next
Debug.Print s
End Sub