CD/DVD drive open==>dicht wil niet

[TopVersnelling]

Code:

Do
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
Loop

Ik heb het progje gestard, en dit gebeurt er: (omgedraaid als de drivers al open zijn) (ik heb 2 drivers)
open1
open2
dicht1
dicht2
open1
open2

Error:
==Locatie script==
Regel: 8
Teken: 1
Fout: 0x8fff0101
Code: 8FFF0101
Bron: (null)

 

[secretman8o]

hey topversnelling.

ik weet niet hoe het met 2 cd-driver werkt maar met 1 gaat het zo :

do
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
loop

( het enigste verschil is dus die
Dim oWMP
Dim colCDROMs, i
weglaten. )

ik gebruik hem zelf zo ook, en hij werkt.
ik hoop dat ie het zo wel doet, maar ik weet het echt niet.
tis maar een optie.

en anders veel geluk met de overigge reacties...
( btw : http://www.helpmij.nl/forum/systemspecs.php?userid=131560 geeft bij mij aan dat ie link niet werkt. )

 

[TopVersnelling]

Nieuwe error XD

==Locatie script==
Regel: 6
Teken: 1
Fout: 0x8fff0101
Code: 8FFF0101
Bron: (null)

Dat lijkt:

colCDROMs.Item(i).Eject

Kan kloppen, als de CD lade open staat.