POP UP message if there is no media in the CDROM

[e2000era]

Anybody has code to prompt message if there is no media in the cdrom! (Visual basic or vb script is what I am looking for!)

Thanks
Dali

[dglienna]

This works:

Option Explicit
 
Private Sub Form_Load()
  On Error GoTo trap
    MsgBox Dir("g:")
  Exit Sub
trap:
  If Err.Number = 52 Then
    MsgBox "No disk in drive"
  End If
End Sub

[RhinoBull]

Try using FSO:

Private Sub Command1_Click()
'===============================
Dim fso As New FileSystemObject
Dim drv As Drive
 
    Set drv = fso.GetDrive("e:\")
    If drv.DriveType = CDRom Then
        If drv.IsReady = False Then
            MsgBox "No media found"
        End If
    End If
 
End Sub

[e2000era]

That would work, but in many cases I won't know the drive letter for the cdrom!

[dglienna]

There can be many Disks that have removeable media. You could just start at "C:" and work your way up, I guess. Check for "\autorun.inf" if it's present, then it's most likely an autorun cd

[RhinoBull]

Just loop through drives:

Private Sub Command1_Click()
'===============================
Dim fso As New FileSystemObject
Dim drv As Drive
 
    For Each drv In fso.Drives
        If drv.DriveType = CDRom Then
            If drv.IsReady = False Then
                MsgBox "Drive " & drv.DriveLetter & " has no media."
            End If
        End If
    Next drv
 
End Sub