where is the CD-ROM drive?

Take a look at this thread which shows how to determine the Drive letter and if there are any CDs in it.

[hitcgar]

If what you're trying to do - I didn't quite get your point - is trying to find the CD drive
and it's letter then use WMI:

Public Sub listDrives(Optional strServer As String = ".")

    Dim objs As WbemScripting.SWbemObjectSet
    Dim obj As WbemScripting.SWbemObject
    Dim svcs As WbemScripting.SWbemServices
    Dim swLocator As WbemScripting.SWbemLocator
        
    Set swLocator = New WbemScripting.SWbemLocator
    Set svcs = swLocator.ConnectServer(strServer)
    Set objs = svcs.InstancesOf("Win32_LogicalDisk")

    For Each obj In objs
      If obj.Properties_.Item("DriveType") = 5 Then
        Debug.Print "Name:  " & obj.Properties_.Item("Name")
        Debug.Print "Drive Type:  " & obj.Properties_.Item("DriveType")
      End If 
    Next obj

    Set objs = Nothing
    Set svcs = Nothing
    Set swLocator = Nothing
End Sub

Of course you need WMI installed on your sys which is avail. free from microsoft.

Thanks for the help I wrote the code yesterday from the VBA Developer's Handbook it din't give me the correct results so I modified it with your code. Is there some way to prevent directory browsing on a CD so that an expiration date on the material there will be effective?