View: - 168
'REFERENCE NEEDED : Microsoft Scripting Runtime Dim FSO As Scripting.FileSystemObject Private Sub Form_Load() Dim Drv As Drive Set FSO = New Scripting.FileSystemObject For Each Drv In FSO.Drives If Drv.DriveType = CDRom Then MsgBox "CD-ROM Drive Letter is: " & Drv.DriveLetter, vbInformation Set FSO = Nothing End End If Next End Sub
