如何得到本机特定路径（传入参数）下的子目录和文件

Question

你只要在本机用吗？
可以通过使用FSO控件来实现啊，使用递归来扫描文件和文件夹路径

Answer 1

能说的详细些吗，
我也想知道但现在fso是什么我还不清楚

Answer 2

我是初学，也知道用fso递归来扫描文件和文件夹路径
,可不会写，自己写了一个用FileSystemObject写了一个，可不对，我死活也找不到问题，所以希望高手能告诉我。2楼的大哥能给一个javascript的源代码吗？我先谢谢了

Answer 3

晕，怎么没有朋友帮忙呀，刚才有个朋友给了个vbscript的，我看不懂，谁能帮我转成javascript<%@ Language=VBScript %>
<%
 function bianli(path)
  dim fso   'fso对象
  dim objFolder  '文件夹对象
  dim objSubFolders '子文件夹集合
  dim objSubFolder '子文件夹对象
  dim objFiles  '文件集合
  dim objFile  '文件对象  set fso=server.CreateObject("scripting.filesystemobject") 
  on error resume next
  set objFolder=fso.GetFolder(path)'创建文件夹对象
  set objSubFolders=objFolder.Subfolders'创建的子文件夹对象
  for each objSubFolder in objSubFolders 
   nowpath=path + "\" + objSubFolder.name
   Response.Write nowpath
   set objFiles=objSubFolder.Files
   for each objFile in objFiles
    Response.Write "<br>---"
    Response.Write objFile.name
   next
   Response.Write "<p>"
   bianli(nowpath) '调用递归
  next 
  set objFolder=nothing
  set objSubFolders=nothing
  set fso=nothing
 end function
%>
<%
 bianli("d:") '调用bianli()函数,这里是遍历d:盘
%>