Hello,
Does anyone have any code to find the default CDROM drive letter???
Thanks in advance.
Anthony
Printable View
Hello,
Does anyone have any code to find the default CDROM drive letter???
Thanks in advance.
Anthony
I got this out of the MSDN help library...
Code:
Sub ShowDriveType(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
MsgBox s
End Sub
Here's another way using the FileSystemObject.
Make sure you reference Microsoft Scripting Runtime in your Project/References...
Code:Dim loDrive As Drive
Dim loFileSys As FileSystemObject
Dim lsDriveLetters As String
lsDriveLetters = "CDRom Drives are:" & vbNewLine
Set loFileSys = New FileSystemObject
For Each loDrive In loFileSys.Drives
If loDrive.DriveType = CDRom Then
lsDriveLetters = lsDriveLetters & loDrive.DriveLetter & vbNewLine
End If
Next
MsgBox lsDriveLetters