51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2491|回复: 2
打印 上一主题 下一主题

[原创] vbs脚本 如何递归遍历文件夹

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-11-29 13:38:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
给定一个目录,如何递归遍历这个目录,把文件夹的名称都打印出来
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-11-29 15:01:22 | 只看该作者
  1. Function pathFind( searchingFolder,searchingFileName,fileType)
  2. '根据传入的根目录,查找该目录下的指定名称,以及指定文件类型的文件,并返回其绝对路径。
  3. tempArray = Split(searchingFileName,".")
  4. fileName = tempArray(0)&"."&fileType
  5. Set fso=CreateObject( "Scripting.FileSystemObject" )
  6. Set objFolder = fso.GetFolder( searchingFolder )
  7. Set objFileCollection = objFolder.Files
  8. for each objFile in objFileCollection
  9. If objFile.Name = fileName Then
  10. i=i+1
  11. searchedFilePath = objFile.Path
  12. Exit for
  13. End If
  14. Next

  15. If i=0 then
  16. '遍历子文件夹
  17. Set objSubFoldersCollection = objFolder.SubFolders
  18. For each objInputSubFolder in objSubFoldersCollection
  19. searchedFilePath= pathFind(objInputSubFolder,searchingFileName,fileType)
  20. If searchedFilePath<>"" Then
  21. Exit For
  22. End if
  23. Next
  24. End If
  25. pathFind = searchedFilePath
  26. End Function
复制代码
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2010-11-29 16:02:01 | 只看该作者
楼上的代码太乱了,没有格式呢
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-26 04:31 , Processed in 0.064137 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表