RosettaCodeData/Task/Empty-directory/Run-BASIC/empty-directory.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
205 B
Text

files #f, DefaultDir$ + "\*.*" ' open some directory.
print "hasanswer: ";#f HASANSWER() ' if it has an answer it is not MT
print "rowcount: ";#f ROWCOUNT() ' if not MT, how many files?