/*
   This program demonstrates that the 4 diskspace related functions work
   correctly for disks of any size.

   Certain os's may allow limits to the amount of disk space available to
   a user.  If that is the case, you should see a difference between
   the return value of DiskSpace() and DiskFree().

   Currently, Disk quota's are only implimented for NT.

   NOTE: Unlike Clipper, these functions return a floating point number!

   Written by Paul Tucker {ptucker@sympatico.ca>

   This test program placed in the public domain
*/

#include "fileio.ch"

PROCEDURE Main( cDisk )

   IF Empty( cDisk )
      cDisk := hb_DirBase() + hb_ps()
   ENDIF

   ? "Bytes available on disk: " + Transform( hb_DiskSpace( cDisk, HB_DISK_FREE ), "999,999,999,999" )
   ? "Bytes available for use: " + Transform( hb_DiskSpace( cDisk, HB_DISK_AVAIL ), "999,999,999,999" )
   ? "             Bytes used: " + Transform( hb_DiskSpace( cDisk, HB_DISK_USED ), "999,999,999,999" )
   ? " Total bytes at " + cDisk + ": " + Transform( hb_DiskSpace( cDisk, HB_DISK_TOTAL ), "999,999,999,999" )

   RETURN