DetectDiscks

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