GedCDDrive

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub QueryCDROM()
Dim intDrive As Integer
Const DRIVE_CDROM = 5
Text1.Text = "Nessun CD_ROM Installato"
For intDrive = 65 To 90
If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
Text1.Text = "il CD-ROM e' il Drive " & Chr(Drive) & ":\"
Exit For
End If
Next Drive
End Sub