Detectar unidad de cd-rom y disketera

noesdificil
31 de Octubre del 2003
Hola gente!
Tengo un problemilla en un proyecto que estoy haciendo en mi trabajo.
Necesito que el usuaio seleccione un directorio, pudiendo elegir entre varias unidades (entre las que se encuentran, por supuesto, el cd-rom y la disquetera). El problema es que no se como detectar si la disquetera y el cd-rom estan activos (o sea, si tienen un cd o un disket dentro).
Agradezco cualquier sugerencia.
Ciao.
NoEsDificil

sdemingo
31 de Octubre del 2003
Hola,
ahí va un ejemplillo

Dim unidad As Drive
Dim nuevonodo As Node
Dim primero As Node
Dim carpeta As Folder
Dim fso Ss Object

Set fso = CreateObject("Scripting.FileSystemObject"

For Each unidad In fso.Drives
If unidad.IsReady = True Then
Select Case unidad.DriveType
Case CDRom

Case Fixed

Case Removable

End Select
End If
Next Unidad


Un saludo
sdemingo

noesdificil
31 de Octubre del 2003
Muchas gracias.
Ya he solucionado el problema con la ayuda de tu codigo.
NoEsDificil