diff options
| -rw-r--r-- | win32/.cvsignore | 2 | ||||
| -rw-r--r-- | win32/test.bmx | 38 |
2 files changed, 40 insertions, 0 deletions
diff --git a/win32/.cvsignore b/win32/.cvsignore new file mode 100644 index 0000000..8f686ea --- /dev/null +++ b/win32/.cvsignore @@ -0,0 +1,2 @@ +test.debug.exe
+.bmx
\ No newline at end of file diff --git a/win32/test.bmx b/win32/test.bmx new file mode 100644 index 0000000..5429281 --- /dev/null +++ b/win32/test.bmx @@ -0,0 +1,38 @@ +' $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)
\ No newline at end of file |