FoxPro/Visual FoxPro - Unidad de CD-Rom

Como hago para saber la letra de la unidad de Cd-Rom en VFP6.

Acá tienes una rutina que te puede servir:

LOCAL loFileSystem, loDrive

#define FD_DRIVE 1
#define HD_DRIVE 2
#define CD_DRIVE 4

* Instanciamos el objeto

loFileSystem = CREATEOBJECT("Scripting.FileSystemObject")

* Recorremos los drives
FOR EACH loDrive IN loFileSystem.Drives
WITH loDrive
IF (.IsReady) THEN
IF .DriveType = CD_DRIVE
? "CD-ROM", loDrive.DriveLetter+":"
ENDIF
ENDIF
ENDWITH
ENDFOR