BBS: Inland Empire Archive
Date: 08-02-92 (18:55) Number: 120
From: JEAN CREPEAU Refer#: NONE
To: AL LAWRENCE Recvd: NO
Subj: Dir Display/Manipulation Conf: (2) Quik_Bas
In a message to ALL, AL LAWRENCE wrote:
AL=> I believe there was some code posted in this echo relative to
retrieving a Directory listing and manipulating the individual files
(copying them to another Dir, etc)via cursor movement.
AL=> If my memory is correct (which at times is suspect <g>) please let me
know where I can find it....
Here is what you're asking for.
reserved as string*21
attr as string*1
filetime as integer
filedate as integer
filesize as long
filename as string*13
dim dta as filedesc
declare function findfirst%(x$,dta)
declare function findnext%()
function findfirst%(x$,dta as filedesc)
dim inreg as regtype,outreg as regtype,temp as string
findfirst=outreg.flags and 1
dim inreg as regtype,outreg as regtype
findnext=outreg.flags and 1
To get the first filename in the directory:
If R=0 then everything is ok. To read the next file name in the
If R<>0, that means that there is no more file in the directory.
* Origin: INTERACESS Montreal (QC) Canada (514) 528-1415 (1:167/280)