DECLARE SUB listFiles ()

DIM SHARED fileList$(1 TO 5000)
DIM SHARED fileListAmo

listFiles


SUB listFiles
SHELL "cmd /C dir>dir.$$$"


fileListAmo = 0

OPEN "dir.$$$" FOR INPUT AS #1
1

IF EOF(1) <> 0 THEN GOTO 2

LINE INPUT #1, a$


IF LEN(a$) < 40 THEN GOTO 1

f$ = RIGHT$(a$, LEN(a$) - 39)
IF LEFT$(f$, 1) = " " THEN GOTO 1
IF LEFT$(f$, 1) = "." THEN GOTO 1
IF LEFT$(f$, 7) = "DIR.$$$" THEN GOTO 1

fileListAmo = fileListAmo + 1
fileList$(fileListAmo) = f$

GOTO 1
2
CLOSE #1


KILL "dir.$$$"
END SUB