Dim fs, dc
Set fs = CreateObject("Scripting.FileSystemObject")
'ver si se ejecuta desde el CD-ROM
Dim actual, directorio
directorio = ""
actual = CurDir
Set dc = fs.drives
For Each d In dc
pos = InStr(actual, d.driveLetter)
If (d.drivetype = 4) And (pos = 1) Then
directorio = d.driveLetter
End If
Next
If directorio <> "" Then
'directorio=unidad de cdrom
End If
Oye este codigo lo uso en una aplicacion mia y trabaja perfecto en directorio tendras el nombre de la torre de CDrom
