遍历所有文件夹的递归函数(epower2002)

sub main()
    processdirectory("e:\my documents")
    console.readline()
  end sub

  private sub processdirectory(byval targetdirectory as string)
    if directory.exists(targetdirectory) then
      if directory.getfilesystementries(targetdirectory).length = 0 then
         empty folder
        console.writeline("folder " & targetdirectory & " is empty")
      else
         recurse subdirectories of this directory
        dim subdirectory as string
        dim subdirectoryentries as string() = directory.getdirectories(targetdirectory)
        for each subdirectory in subdirectoryentries
          console.writeline("folder is " & subdirectory)
          processdirectory(subdirectory)
        next subdirectory
      end if
    end if
  end sub