驱动器中是空白的CD还是DVD？

Question

我正在创建一个应用程序，它继续循环播放wav文件，直到CD托盘关闭，无论是否有驱动器中的空白cd \ dvd。 我已经尝试了下面的按钮1，现在点击按钮，但得到以下结果

CD托盘打开=假

CD托盘关闭，没有cd = false

CD托盘已关闭，黑色磁盘= false

Dim CD_DRIVE As Boolean
Dim fso As New Scripting.FileSystemObject
fso = CreateObject("Scripting.FileSystemObject")
CD_DRIVE = fso.GetDrive("G:\").IsReady
MsgBox(CD_DRIVE)

如果我用带有数据的磁盘关闭CD托盘，则显示为true。但是我需要它使用空白的CD \ DVD或没有CD \ DVD。 我看到窗户无法判断驱动器中是否有空白的CD。 我还是比较新手，所以任何帮助都会很棒。

感谢

詹姆斯