Starting with a path to some directory, determine whether the directory is empty.

An empty directory contains no files nor subdirectories.
With Unix or Windows systems, every directory contains an entry for “.” and almost every directory contains “..” (except for a root directory); an empty directory contains no other entries.

 
dim info$(10, 10)
files "c:\", info$()
 
qtyFiles=val(info$(0,0))
n = qtyFiles+1  'begin directory info
 
folder$ = info$(n,0)  'path to first directory in c:
 
files folder$, info$() 're-fill array with data from sub folder
 
if val(info$(0,0)) + val(info$(0, 1)) <> 0 then
    print "Folder ";folder$;" is not empty."
else
    print "Folder ";folder$;" is empty."
end if
 