谁帮我一下，我是写JSP的，现在碰到一个问题，急需解决（很急），怎么样可以把一个目录（有很多嵌套的文件夹）最底层的文件夹放在同一个

Question

我现在有一个文件夹，里面有很多层次不一样的子文件夹，我想把这些最底层的文件夹全部挑出来，放在一个新的文件夹里面。谢谢大家帮忙！
最好用VB6.0的环境来实现，这个我在学校还碰过，现在还有点印象

Answer 1

用递归调用,格式大概这样
先写一个,调用,一个目录所有文件夹的子程,然后自己我调用
sub a()
 call b
end subsub b()
...........
call b
end sub

Answer 2

sub funa(srcdir as string, desdir as string)
      dim strdir() as sting, i as long, j as long 
      redim strdir(0)
      strdir(0) = dir(strdir & "\", vbdirectory)  
      if ""<>strdir(0) then
          do 
            i=i+1:redim preserve strdir(i)
            strdir(i)=dir
          loop until strdir(i)=""
      endif
      for j=0 to i-1
          call funca(srcdir & "\" & strdir(i) & "\", desdir)
      next j
      move srcdir, desdir
end sub
大概就这个样子， 这里没vb，没测试。