  ------------------------------------------------------------------------
  Diskinfo unit                             by Sebastian Groeneveld (2000)
  ------------------------------------------------------------------------

  Usage
  =====

  Add the following line to your program:

  $INCLUDE "Diskinfo.inc"


  Public routines
  ===============

  -----
  FUNCTION DiskSize( BYVAL DriveLetter AS STRING ) AS DWORD

  Returns the total disk space of a drive (A-Z)

  -----
  FUNCTION DiskFree( BYVAL DriveLetter AS STRING ) AS DWORD

  Returns the free disk space of a drive (A-Z)

  -----
  SUB DiskInfo( BYVAL DriveLetter         AS STRING, _
                BYVAL SectorsPerClusters  AS WORD, _
                BYVAL BytesPerSector      AS WORD, _
                BYVAL TotalClusters       AS WORD, _
                BYVAL FreeClusters        AS WORD )

  Get some characteristics of a drive (A-Z)


  Example
  =======

  $INCLUDE "Diskinfo.inc"

  DIM FreeSpace AS DWORD

  FreeSpace = DiskFree( "C" )    'or DiskFree( "C:\Anything" )
