Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileS ystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("S cripting.FileSy stemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr (intDriveLetter )).DriveType = CDROM Then
...