sample_012.md

Home

Displaying the drive type value

Before you begin:

See also:

• Basic Volume information
• Setting the volume label
• Disk in drive A:
• Obtaining physical parameters for a drive: sectors, clusters, cylinders...

---

Code:

#DEFINE DRIVE_UNKNOWN     0
#DEFINE DRIVE_NO_ROOT_DIR 1
#DEFINE DRIVE_REMOVABLE   2
#DEFINE DRIVE_FIXED       3
#DEFINE DRIVE_REMOTE      4
#DEFINE DRIVE_CDROM       5
#DEFINE DRIVE_RAMDISK     6

DECLARE INTEGER GetDriveType IN kernel32 STRING nDrive

DECLARE INTEGER RealDriveType IN shell32;
	INTEGER iDrive, INTEGER fOKToHitNet

LOCAL nIndex, nType

FOR nIndex=Asc("A") TO Asc("Z")

	* both functions return identical results
	nType = RealDriveType(nIndex-65, 0)
*	nType = GetDriveType(Chr(nIndex) + ":")

	DO CASE
	CASE nType = DRIVE_REMOVABLE
		? Chr(nIndex)+":", "removable"
	CASE nType = DRIVE_FIXED
		? Chr(nIndex)+":", "fixed"
	CASE nType = DRIVE_REMOTE
		? Chr(nIndex)+":", "remote"
	CASE nType = DRIVE_CDROM
		? Chr(nIndex)+":", "CDROM"
	CASE nType = DRIVE_RAMDISK
		? Chr(nIndex)+":", "RAM"
	ENDCASE
ENDFOR  

---

Listed functions:

GetDriveType
RealDriveType