Windows 获取DVD CD-ROM及其标签名称的列表

我正在寻找一种方法来获得一个个人电脑上的DVD或CD光盘列表，以及他们的标签名称（如果有任何DVD或CD插入）使用VB脚本

---

目前有一些脚本返回所有设备的字母，但我只需要DVD和CD-ROM。

Drive

类的

DriveType

属性报告驱动器的类型。以下是此枚举的值：

Const DriveTypeUnknown   = 0
Const DriveTypeRemovable = 1
Const DriveTypeFixed     = 2
Const DriveTypeNetwork   = 3
Const DriveTypeOptical   = 4
Const DriveTypeRAMDisk   = 5

只需迭代

文件系统对象

类的

驱动器

集合。请注意，CD和DVD驱动器之间没有区别（也没有读/写）

---

嗯，你把我列在你代码里的

Const

s包括在内了吗？谢谢你，邦德，是的，我忘了包括常数；）它工作起来很有魅力。

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objDrive In objFSO.Drives
    If objDrive.DriveType = DriveTypeOptical Then

        ' Attempt to get the volume name. It will only be available if a disc is loaded.
        If objDrive.IsReady Then
            strLabel = objDrive.VolumeName
        Else
            strLabel = "(no disc)"
        End If

        WScript.Echo "Optical Drive = " & objDrive.DriveLetter & ", Label = " & strLabel

    End If
Next