' $Id$

Import noddybox.win32
Strict

Local drives:Int=W32GetLogicalDrives()

For Local b:Int=0 To 27
	Local m:Int=1 Shl b

	If (drives &m)=m
		Local root:String=Chr(65+b)+":"
		Local t:String
		
		Select W32GetDriveType(root)
			Case DRIVETYPE_UNKNOWN
				t="Unknown"
			Case DRIVETYPE_NO_ROOT_DIR
				t="No root dir"
			Case DRIVETYPE_REMOVABLE
				t="Removable"
			Case DRIVETYPE_FIXED
				t="Fixed"
			Case DRIVETYPE_REMOTE
				t="Remote"
			Case DRIVETYPE_CDROM
				t="CDROM"
			Case DRIVETYPE_RAMDISK
				t="RAM DISK"
			Default
				t="*** Bad return ***"
		End Select
		
		Print root + " -- " + t
	EndIf
Next

Print "Drive mask="+Bin(drives)