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 |