Dir Walk Challenge

[B+]

Well I finally got a useful directory walk working from SmallBASIC.
Chris has a Keyword DIRWALK but it isn't easy for me to use but I bet Chris could extract 100 x's faster than I.

When you launch SmallBASIC you are actually looking at the output from the DIRWALK command.

(SmallBASIC runs main.bas which provides the user interface)

Ah! I knew that all that extraction wasn't needed!

Code: [Select]

'Dir Walk 2.bas for SmallBASIC 0.12.13 B+ 2018-09-28

FUNC sto(x)
  if right(lcase(x.name), 4) = ".bas"
    pathname = iff( x.depth > 0, (x.path + chr(92) + x.name), (x.path + x.name))
    container << pathname
  fi
  sto = TRUE
END

DIRWALK "." USE sto(x)
SORT container
'check and file results
FOR i IN container DO ? i
tsave "BAS files.txt", container

Same output results.

[jj2007]

Nice to see MasmBasic in action again. Are the files coming out sorted automatically?

Hi B+,

No, GetFiles doesn't sort automatically, but SortFiles will do that, and it has quite a number of useful options.

[B+]

Wow! took awhile to give birth to an answer. ;-))

My files list is coming in handy finding a SmallBASIC file that I know I have somewhere among the 1000's.

[jj2007]

Wow! took awhile to give birth to an answer. ;-))

Apologies - I found your post by accident. I confess that I visit this forum only occasionally...