1 DECLARE SUB listFiles ()
\r
3 DIM SHARED fileList$(1 TO 5000)
\r
4 DIM SHARED fileListAmo
\r
10 SHELL "cmd /C dir>dir.$$$"
\r
15 OPEN "dir.$$$" FOR INPUT AS #1
\r
18 IF EOF(1) <> 0 THEN GOTO 2
\r
23 IF LEN(a$) < 40 THEN GOTO 1
\r
25 f$ = RIGHT$(a$, LEN(a$) - 39)
\r
26 IF LEFT$(f$, 1) = " " THEN GOTO 1
\r
27 IF LEFT$(f$, 1) = "." THEN GOTO 1
\r
28 IF LEFT$(f$, 7) = "DIR.$$$" THEN GOTO 1
\r
30 fileListAmo = fileListAmo + 1
\r
31 fileList$(fileListAmo) = f$
\r