(3 of 3) DIR$ to array

 BBS: Inland Empire Archive
Date: 06-10-93 (00:49)             Number: 268
From: TIM BENNETT                  Refer#: NONE
  To: EVANS MARTIN                  Recvd: NO  
Subj: (3 of 3) DIR$ to array         Conf: (2) Quik_Bas

'>>> Start of page 3.

        END IF

        dirnum = dirnum + 1
        dir$(dirnum) = FileTemp$ + FSize$ + "  " + FDate$ + "  "_
 + FTime$

        IF Buffer.Attributes = 4096 AND filedir = 1 THEN
                MID$(dir$(dirnum), 13, 9) = "<dir>    "
        END IF

        Buffer.Attributes = 0
        Buffer.AccessTime = 0
        Buffer.AccessDate = 0
        Buffer.FileSize = 0
        Buffer.FileName = STRING$(13, 32)
        RETURN

END SUB


'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                      / O

$$
... Grandma got run over by a reindeer...
--- GEcho/beta
 * Origin: Home - FalconWorks SoftWare - Mail Only (1:362/466.0)