dim folder as folderitem // your folder

dim c as Integer = folder.count
for i as Integer = 1 to c
  dim item as folderitem = folder.trueitem(i)
  if item = nil then
    // ignore
  elseif item.directory then
    // folder
    if item.count = 0 then
      // found empty folder
    end if
  end if
next