hur kan ju i koden "känna" vilket enhet cd-spelaren har?

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

Private Sub Command1_Click()
Dim drivetyp As Long, i As Long, drvId As String
For i = 68 To 90 ' D - Z
drvId = Chr$(i) & ":\"
drivetyp = GetDriveType(drvId)
If drivetyp = 5 Then Exit For
Next 'i
Label1 = drvId & " är CD drive"
End Sub

Mvh
Sven