home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / IQB9203.ZIP / DIRFUN.BI < prev    next >
Encoding:
Text File  |  1992-01-19  |  1.0 KB  |  32 lines
  1. ' DirFun.BI - Declarations for the revised DIR_READ package.
  2.  
  3. TYPE DataTransferArea
  4.     Reserved1   AS STRING * 21
  5.     Attribute   AS STRING * 1
  6.     FileTime    AS INTEGER
  7.     FileDate    AS INTEGER
  8.     FileSize    AS LONG
  9.     FileName    AS STRING * 13
  10. END TYPE
  11.  
  12. TYPE DirectoryRecord
  13.     FileName    AS STRING * 13
  14.     FileSize    AS LONG
  15.     FileDate    AS INTEGER
  16.     FileTime    AS INTEGER
  17.     FileAttb    AS INTEGER
  18. END TYPE
  19.         
  20. DECLARE FUNCTION RStr$ (X%, LX%)
  21. DECLARE FUNCTION FmtTime$ (T%)
  22. DECLARE FUNCTION FmtDate$ (FDate%)
  23. DECLARE FUNCTION FindFirst% (Attr%, FileName$, _
  24.                              DEntry AS DirectoryRecord, _
  25.                              theDTA AS DataTransferArea)
  26. DECLARE FUNCTION FindNext% (DEntry AS DirectoryRecord, _
  27.                              theDTA AS DataTransferArea)
  28. DECLARE SUB PrintDirEntry (DR AS DirectoryRecord, FindStatus%)
  29. DECLARE SUB SetDTA (theDTA AS DataTransferArea)
  30. DECLARE SUB TransferDTA2DIR (DEntry AS DirectoryRecord, _
  31.                              theDTA AS DataTransferArea)
  32.