;; | ----------------------------------------------------------------------------
;; | MI_GetFixedDrive
;; | ----------------------------------------------------------------------------
;; | Arguments: (none)
;; | Returns  : The first named fixed drive
;; | Comments : Gets the drive letter of the first named FIXED drive
;; |            Uses DosLib Ver 5.1.1 +
;; | Updated  : May 24, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetFixedDrive( / DriveLst Drive )
(setq
	DriveLst (dos_drives)
	Drive nil
)

(while DriveLst
	(setq Drive (nth 0 DriveLst))
	(if (= (strcase (dos_drivetype Drive)) "FIXED")
		(setq DriveLst nil)
		(setq
			DriveLst (cdr DriveLst)
			Drive nil
		)
	)
)
Drive
)