home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / drv_util / drvutils.bas < prev    next >
BASIC Source File  |  1994-03-06  |  2KB  |  48 lines
  1. '       Function Declarations for DRVUTILS.DLL
  2. '
  3. '       Copyright 1994 by       TANSTAAFL Software
  4. '                               P.O. Box 260075
  5. '                               Lakewood, CO  80226
  6. '                               (303) 989-7389
  7. '
  8. '
  9. '       Constants used by DRVUTILS.DLL
  10. '
  11. '       File Attributes
  12. '
  13. Global Const A_NORMAL = 0
  14. Global Const A_RDONLY = 1
  15. Global Const A_HIDDEN = 2
  16. Global Const A_SYSTEM = 4
  17. Global Const A_VOLID = 8
  18. Global Const A_SUBDIR = 16
  19. Global Const A_ARCH = 32
  20. '
  21. '       Error Codes
  22. '
  23. Global Const ENOENT = 2
  24. Global Const EBADF = 9
  25. Global Const ENOMEM = 12
  26. Global Const EACCES = 13
  27. Global Const EINVAL = 22
  28. Global Const EMFILE = 24
  29. Global Const ENOSPC = 28
  30. Global Const BADDATE = 998
  31. Global Const BADTIME = 999
  32. '
  33. '       Function Declarations
  34. '
  35. Declare Function DiskBytesTotal Lib "DRVUTILS.DLL" (ByVal Drv As String) As Long
  36. Declare Function DiskBytesUsed Lib "DRVUTILS.DLL" (ByVal Drv As String) As Long
  37. Declare Function DiskBytesFree Lib "DRVUTILS.DLL" (ByVal Drv As String) As Long
  38. Declare Function DiskBytesSector Lib "DRVUTILS.DLL" (ByVal Drv As String) As Long
  39. Declare Function DiskBytesCluster Lib "DRVUTILS.DLL" (ByVal Drv As String) As Long
  40.  
  41. Declare Function FileGetBytes Lib "DRVUTILS.DLL" (ByVal Fil As String) As Long
  42. Declare Function FileGetAttributes Lib "DRVUTILS.DLL" (ByVal Fil As String) As Integer
  43. Declare Function FileSetAttributes Lib "DRVUTILS.DLL" (ByVal Fil As String, ByVal Attr As Integer) As Integer
  44. Declare Function FileGetDateTime Lib "DRVUTILS.DLL" (ByVal Fil As String, Ayear As Integer, Amonth As Integer, Aday As Integer, Ahour As Integer, Aminute As Integer, Asecond As Integer) As Integer
  45. Declare Function FileSetDateTime Lib "DRVUTILS.DLL" (ByVal Fil As String, Ayear As Integer, Amonth As Integer, Aday As Integer, Ahour As Integer, Aminute As Integer, Asecond As Integer) As Integer
  46. Declare Function FileZAPP Lib "DRVUTILS.DLL" (ByVal Fil As String, ByVal Pattern As Integer) As Integer
  47.  
  48.