[PCG342]

All right. My mother has a moderately old PC [Compaq/HP with a 1.8 gig AMD] and apparently for over a month, her CD drive has been inoperable. Actually, it runs. It just won't open. The button works to close the door, but not to open it. For that, I've gotta jam a paperclip in the hole and push the button - simultaneously. As I said, it reads just fine.
I got creative and made a file that functions as follows:

Dim WMP: Set WMP = CreateObject("WMPlayer.ocx")
Dim colCDROMS: Set colCDROMS = WMP.CDROMCollection

If colCDROMS.Count > -1 Then
For i = 0 to colCDROMS.Count - 1
colCDROMS.Item(i).Eject
Next
End If

It worked!
... Once.
So, short of replacing the drive, does anybody have a suggestion?

 

[schusterjo]

To be honest with you if its just a regular cd rom scrap it and get a new one. $20 is all they cost.

 

[PCG342]

It's not, but I refer to all optical drives as CD drives, for brevity's sake, unless it makes a difference. It's a DVD drive. The CD-RW drive actually works just fine. And I'm too damned cheap to buy a new one...

 

[JohnWill]

If it will programmatically open, it's probably some issue where the O/S is locking the drive for some reason.

Did you uninstall all the CD/DVD drives and reboot?

 

[PCG342]

No, though I have an idea.... More tomorrow.