(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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET