home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
IQB9203.ZIP
/
DIRFUN.BI
< prev
next >
Wrap
Text File
|
1992-01-19
|
1KB
|
32 lines
' DirFun.BI - Declarations for the revised DIR_READ package.
TYPE DataTransferArea
Reserved1 AS STRING * 21
Attribute AS STRING * 1
FileTime AS INTEGER
FileDate AS INTEGER
FileSize AS LONG
FileName AS STRING * 13
END TYPE
TYPE DirectoryRecord
FileName AS STRING * 13
FileSize AS LONG
FileDate AS INTEGER
FileTime AS INTEGER
FileAttb AS INTEGER
END TYPE
DECLARE FUNCTION RStr$ (X%, LX%)
DECLARE FUNCTION FmtTime$ (T%)
DECLARE FUNCTION FmtDate$ (FDate%)
DECLARE FUNCTION FindFirst% (Attr%, FileName$, _
DEntry AS DirectoryRecord, _
theDTA AS DataTransferArea)
DECLARE FUNCTION FindNext% (DEntry AS DirectoryRecord, _
theDTA AS DataTransferArea)
DECLARE SUB PrintDirEntry (DR AS DirectoryRecord, FindStatus%)
DECLARE SUB SetDTA (theDTA AS DataTransferArea)
DECLARE SUB TransferDTA2DIR (DEntry AS DirectoryRecord, _
theDTA AS DataTransferArea)