This will open cdroms on a windows computer

by Matt Wise (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 14^th March 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Dim oWMP Dim NumCDROMs

Rate This will open cdroms on a windows computer



If NumCDROMs.Count >= 1 Then
        For i = 0 To NumCDROMs.Count - 1
               NumCDROMs.Item(i).Eject
        Next
End If
End Sub

Private Sub Form_Load()
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set NumCDROMs = oWMP.cdromCollection

For z = 0 To NumCDROMs.Count - 1
    List1.AddItem z
Next z
End Sub

Private Sub List1_dblClick()
q = List1.Text
NumCDROMs.Item(q).Eject
End Sub

Download this snippet Add to My Saved Code

This will open cdroms on a windows computer Comments

No comments have been posted about This will open cdroms on a windows computer. Why not be the first to post a comment about This will open cdroms on a windows computer.

This will open cdroms on a windows computer

This will open cdroms on a windows computer Comments

Post your comment

Difficulty