Help!

 BBS: Inland Empire Archive
Date: 02-27-93 (13:47)             Number: 315
From: DOUG JAMES                   Refer#: NONE
  To: MARK WITTKOSKI                Recvd: NO  
Subj: Help!                          Conf: (2) Quik_Bas

 MW> Still looking for a way to read the dos directly, so I
 MW> can check the filename of each file. Also am interested
 MW> in know how to check the disk to see how much disk
 MW> space is available on the disk. Any help is appreciated!

Here's a quickie for ya....

DEFINT A-Z
'routine to demonstrate finding drive space
'*************************************************
'* WARNING:                                      *
'* This program has NO error checking! If you    *
'* attempt to access a floppy with no disk, this *
'* mutha will CRASH AND BURN!                    *
'*                                               *
'* Also, you will need to load QB.QLB when you   *
'* run this from the interpreter                 *
'*************************************************
' we need to include register and interrupt defs

' Define the type needed for Interrupt
'
TYPE RegType
     ax    AS INTEGER
     bx    AS INTEGER
     cx    AS INTEGER
     dx    AS INTEGER
     bp    AS INTEGER
     si    AS INTEGER
     di    AS INTEGER
     flags AS INTEGER
END TYPE

DECLARE SUB Interrupt (intnum AS INTEGER, inreg AS RegType, outreg AS RegType
)

DIM inreg AS RegType, outreg AS RegType

'define our potential drives
Drives$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

' we know we're looking for free disk space, so we'll preset the
' values here.

inreg.ax = &H3600
intnum = &H21

' ok... let's do our thang
CLS
BEEP: PRINT "What drive do you want to check? -> ";
response$ = UCASE$(INPUT$(1)): PRINT response$

inreg.dx = INSTR(Drives$, response$)

CALL Interrupt(intnum, inreg, outreg)

'print the results
PRINT : PRINT " Information for Drive "; response$; ": "
PRINT : PRINT "Sectors per cluster: "; outreg.ax
PRINT "Bytes per sector: "; outreg.cx
PRINT "Total clusters: "; outreg.dx
PRINT "Number of available clusters: "; outreg.bx
END


--- Maximus 2.01wb
 * Origin: No Baudy does it better! *804-744-9260* (1:264/211)