Get letter of CD-ROM Drive

[Matt-D]

English:
My program starts an other application form a CD (because it's bigger than a 1,44 M disk).
But the users have different CD drive names. So I want that the text of a textbox is the letter of the CD-drive.

Is this possoble (in VB3, but normally this doesn't matter.)????
Matt


Deutsch:
Mein Programm startet ein Unterprogramm, das aus Platzgründen auf einer CD-ROM ist. Doch haben die meisten Benutzer verschiedene Laufwerksbezeichnungen. Deshalb möchte ich, daß der Buchstabe des CD-Laufwerks in einem Textfeld erscheint.

Ist das möglich ? (VB3, aber normalerweise stört das nicht)
Matthias

hmm, i dont know much about VB3 but if you are able to use the API, try this....

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
    'Get information about the C:\
    Select Case GetDriveType("C:\")
        Case 2
            Me.Print "Removable"
        Case 3
            Me.Print "Drive Fixed"
        Case Is = 4
            Me.Print "Remote"
        Case Is = 5
            Me.Print "Cd-Rom"
        Case Is = 6
            Me.Print "Ram disk"
        Case Else
            Me.Print "Unrecognized"
    End Select
End Sub

near the top of the code it looks at the "C:" drive, simply cycle throught the alphabet until you get to a CD-Rom drive, and BINGO!

------------------

Wossname,
Email me: [email protected]