Computer - Individuare Le Unita' CD Presenti Nel Sistema

Api # Semplicissimo codice per rilevare se in un sistema sono presenti lettori CD-Rom
e quindi la loro lettera identificativa.
Dichiarazione API da inserire in un modulo BAS
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive
As String) As Long
Codice (inserire una ListBox nel Form)
Dim Unita As Integer
For Unita = Asc("C") To Asc("Z")
If GetDriveType(Chr$(Unita) & ":\") = 5 Then
    List1.AddItem Chr$(Unita) & " :CD-ROM"
End If
Next