16 lines
369 B
Text
16 lines
369 B
Text
|
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
|