Sub Walk(folder as FolderItem)
  dim folders() as FolderItem
  
  folders.Append folder
  
  while UBound(folders)>=0
    
    dim currentFolder as FolderItem = folders.pop
    
    dim c as Integer = currentFolder.Count
    for i as Integer = 1 to c
      dim item as FolderItem = currentFolder.TrueItem(i)
      
      if item = Nil then
        // no permission
      elseif item.Visible then // only visible
        
        if item.Directory then
          folders.Append item
        else
          // work with file here
        end if
        
      end if
      
    next
    
  wend
End Sub