RosettaCodeData/Task/Empty-directory/Run-BASIC/empty-directory.basic

5 lines
205 B
Plaintext

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?