modules/lisfile.bas

   1 DECLARE SUB listFiles ()\r
   2 \r
   3 DIM SHARED fileList$(1 TO 5000)\r
   4 DIM SHARED fileListAmo\r
   5 \r
   6 listFiles\r
   7 \r
   8 \r
   9 SUB listFiles\r
  10 SHELL "cmd /C dir>dir.$$$"\r
  11 \r
  12 \r
  13 fileListAmo = 0\r
  14 \r
  15 OPEN "dir.$$$" FOR INPUT AS #1\r
  16 1\r
  17 \r
  18 IF EOF(1) <> 0 THEN GOTO 2\r
  19 \r
  20 LINE INPUT #1, a$\r
  21 \r
  22 \r
  23 IF LEN(a$) < 40 THEN GOTO 1\r
  24 \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
  29 \r
  30 fileListAmo = fileListAmo + 1\r
  31 fileList$(fileListAmo) = f$\r
  32 \r
  33 GOTO 1\r
  34 2\r
  35 CLOSE #1\r
  36 \r
  37 \r
  38 KILL "dir.$$$"\r
  39 END SUB\r
  40 \r