Files
harbour-core/harbour/contrib/hbnf/diskfunc.prg
Viktor Szakats 6d60145620 2012-11-07 03:28 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbnf/hbnf.hbx
  * contrib/hbodbc/hbodbc.hbx
  * contrib/hbtip/hbtip.hbx
  * contrib/hbtpathy/hbtpathy.hbx
  * contrib/xhb/xhb.hbx
    ! minor fixes

  * contrib/hblzf/tests/*.prg
  * contrib/hbmxml/format.prg
  * contrib/hbmysql/tests/test.prg
  * contrib/hbmysql/tmysql.prg
  * contrib/hbmysql/tsqlbrw.prg
  * contrib/hbnetio/netiomt.prg
  * contrib/hbnetio/utils/hbnetio/*.prg
  * contrib/hbnf/*.prg
  * contrib/hbnf/tests/*.prg
  * contrib/hbodbc/tests/testodbc.prg
  * contrib/hbodbc/todbc.prg
  * contrib/hbpgsql/tests/*.prg
  * contrib/hbpgsql/tpostgre.prg
  * contrib/hbssl/tests/*.prg
  * contrib/hbtip/*.prg
  * contrib/hbtip/tests/*.prg
  * contrib/hbtpathy/telepath.prg
  * contrib/hbzebra/tests/*.prg
  * contrib/rddads/tests/*.prg
  * contrib/xhb/*.prg
  * contrib/xhb/tests/*.prg
    * formatted
    ! commented code converted to #if 0/#endif block
2012-11-07 02:57:26 +00:00

37 lines
836 B
Plaintext

/*
* $Id$
*/
/*
* Author....: Robert A. DiFalco
* CIS ID....: ?
*
* This is an original work by Robert A. DiFalco and is placed in
* the public domain.
*
* Modification history:
* ---------------------
*
* Rev 1.2 15 Aug 1991 23:02:20 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.1 14 Jun 1991 17:49:28 GLENN
* Documentation format change (minor).
* Added work around suggested by a number of Nanforum users; sometimes
* _ftDiskFunc() would return negative numbers on large drives.
*
* Rev 1.0 01 Apr 1991 01:01:12 GLENN
* Nanforum Toolkit
*
*/
#include "fileio.ch"
FUNCTION ft_DskSize( cDrive )
RETURN hb_DiskSpace( cDrive + hb_osDriveSeparator(), HB_DISK_TOTAL )
FUNCTION ft_DskFree( cDrive )
RETURN hb_DiskSpace( cDrive + hb_osDriveSeparator(), HB_DISK_FREE )