服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 遍历目录以及目录下文件的函数

遍历目录以及目录下文件的函数

2019-11-01 12:54asp教程网 ASP教程

遍历目录以及目录下文件的函数

  1. <%@ Language=VBScript%>  
  2. <%function bianli(path)  
  3. set fso=server.CreateObject("scripting.filesystemobject")  
  4.  
  5. on error resume next  
  6. set objFolder=fso.GetFolder(path)  
  7.  
  8. set objSubFolders=objFolder.Subfolders  
  9.  
  10. for each objSubFolder in objSubFolders  
  11.  
  12. nowpath=path + "\" + objSubFolder.name  
  13.  
  14. Response.Write nowpath  
  15.  
  16. set objFiles=objSubFolder.Files  
  17.  
  18. for each objFile in objFiles  
  19. Response.Write "<br>---"  
  20. Response.Write objFile.name  
  21. next  
  22. Response.Write "<p>"  
  23. bianli(nowpath)'递归  
  24.  
  25. next  
  26. set objFolder=nothing  
  27. set objSubFolders=nothing  
  28. set fso=nothing  
  29. end function  
  30. %>  
  31. <%  
  32. bianli("d:") '遍历d:盘  
  33. %>  

延伸 · 阅读

精彩推荐