Sorry your browser is not supported!

   perform checklist for drives

   r = checklist quantity()

   find first
   for i = 1 to r
      print get file name$()
      print get file date$()
      print get file type()
      print "=================================="
      find next
   next i

   drivelist


   wait key
   end

rem drive type indentifier
rem latch
rem 11/13/2006


dim drive$(26)
dim drivetype$(6)
for n = 0 to 6
   read drivetype$(n)
next n

`load dll "c:\windows\system\kernel32.dll",1
load dll "kernel32.dll",1
value=call dll(1,"GetLogicalDrives")
drivemap$=bin$(value)
bitpos=len(drivemap$)
ascii=64

for n = bitpos to 1 step -1
   bit=val(mid$(drivemap$,n))
   inc ascii
   if bit = 1
      drive$(bitpos-(n-1))=chr$(ascii)+":\"
      print drive$(bitpos-(n-1));" ";
      drivetype=call dll(1,"GetDriveTypeA",drive$(bitpos-(n-1)))
      print drivetype$(drivetype)
   endif
next n

data "DRIVE_UNKNOWN","DRIVE_NO_ROOT_DIR","DRIVE_REMOVABLE","DRIVE_FIXED","DRIVE_REMOTE"
data "DRIVE_CDROM","DRIVE_RAMDISK"