Opening/Closeing CD tray 1/2 or browseing

[scsa20]

I'm trying to do something, and when the user clicks on the open button it well load up a dialog box (that I made) that well ask if the user what's to open his/her CD tray 1 or 2 (if they have 2 cd drives) and one the let's them browse there computer for media files (mpg, avi, mp3, etc.). this is what I got so far:

Look at next post for the picture.

All I need now is the code for doing that and how to I do a form load thing that well scan there drive(s) for the name of the CD drive(s) and howmany there, and if it scans and finds only one, it well hide option2 showing a message that reads "No second CD Drive found" and if it finds the name it well say something like (by the option thing replaceing "Open/Close CD Tray 1" with "Open/Close *name of CD Drive*"):

Open/Close *Name of CD Drive*

Thank you a head of time.

[scsa20]

since the link didn't worked (for some reason) when you click on it to see what it looks like, I just added it as a attachment (alot easyer).

[scsa20]

anyone??

[chrisjk]

Look at these, I think they'll help you

http://www.vbforums.com/showthread.p...threadid=19602
http://www.vbforums.com/showthread.p...threadid=16724
http://www.vbforums.com/showthread.php?s=&threadid=6297

[Kaverin]

Once you know what the drive letters are for the various CD drive(s) on the system (all that info is in those 3 links), this can be used to open or close those doors.

'in a module
Public Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpzCommand As String, ByVal lpzReturn As String, ByVal nReturnLength As Long, ByVal hWndCallback As Long) As Long
 
Public Sub DriveDoor(ByVal strDriveLetter As String, Optional ByVal blnOpenDoor As Boolean = True)
   'tells the MCI to ready the device and nickname it "dooralias"
   mciSendString "open " & strDriveLetter & ": type cdaudio alias dooralias", vbNullString, 0, 0
   'opens/closes the given drive door based on the boolean flag
   mciSendString "set dooralias door " & IIf(blnOpenDoor, "open", "closed"), vbNullString, 0, 0
   'tells MCI that we're done with the device
   mciSendString "close dooralias", vbNullString, 0, 0
End Sub
 
'to open the door of drive X
DriveDoor "x", True  'true is assumed, and may be left out
 
'to close the door of drive X
DriveDoor "x", False

[AAG]

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 
Private Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As String, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long
 
Const DRIVE_CDROM = 5
 
Private Sub Command1_Click()
    Dim tmp As Integer
    Dim tmpStr As String
    Dim Drives As String
    Dim CDsCount As Integer 'Number of CD Drives
    Dim CDsLetters As String 'Cd Drive Letters
    Drives = Space(255)
    ret& = GetLogicalDriveStrings(Len(Drives), Drives)
 
 
    For tmp = 1 To ret& Step 4
 
        tmpStr = Mid(Drives, tmp, 3)
 
 
        If GetDriveType(tmpStr) = DRIVE_CDROM Then
            CDsCount = CDsCount + 1
            CDsLetters = CDsLetters & Left(tmpStr, 1) & " "
        End If
    Next tmp
 
 
    If CDsCount Then
        MsgBox CDsCount, vbInformation, "Number Of CD Drives"
        MsgBox CDsLetters, vbInformation, "Letters Of Drives"
    Else
        MsgBox "No CDs Available"
    End If
End Sub

[AAG]

the MCI SENDSTRING declaration doesn't need to be there LOL i took this from another program i had made hehe

[scsa20]

thanks for the codes and links, I'll try them out.

[scsa20]

Ok, I tryed out the code that AGG and Kaverin give me, but how do I put the code that AGG give me that renames the caption of the first CD Drive in the first Option slecte and renames the caption of the second CD Drive in the second Option slecte?? Plus how do I use the code that Kaverin gived me for opening the first cd drive (when slected) and for opening the second cd drive (when slected) and for opening up a browse screen that lets you look for mpgs, avis, mp3, etc. (when slected)??

[scsa20]

anyone??

[chenko]

http://members.aol.com/vbchenko/download/eg/cdrive.zip

there you go...

[scsa20]

Originally posted by chenko
http://members.aol.com/vbchenko/download/eg/cdrive.zip

there you go...

it says it can't find the page (well...that what I get)

[scsa20]

anyone??

[Nucleus]

Something like the app attached?

[scsa20]

hey, thanks. Now I can actly look at a program that has that list thing and take a look at it and brak it down to fit in my program I'm making.