Anonymous user
Empty directory: Difference between revisions
Add BaCon
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
(Add BaCon) |
||
Line 137:
'C:\WINDOWS' is a directory with 98 entries
</pre>
=={{header|BaCon}}==
<lang freebasic>' empty directory test
somedir$ = "somedir"
files = testdir(somedir$)
IF files = 0 THEN PRINT somedir$, " directory empty"
files = testdir(".")
PRINT "Current directory holds ", files, " files"
END
FUNCTION testdir(somedir$)
OPEN somedir$ FOR DIRECTORY AS adir
total = 0
REPEAT
GETFILE afile$ FROM adir
IF afile$ != "." AND afile$ != ".." AND afile$ != "" THEN INCR total
UNTIL ISFALSE(LEN(afile$))
IF (long)adir != 0 THEN CLOSE DIRECTORY adir
RETURN total
END FUNCTION</lang>
{{out}}
<pre>prompt$ ./empty-dir
somedir directory empty
Current directory holds 183 files</pre>
=={{header|Batch File}}==
| |||