vbs脚本 如何递归遍历文件夹

野藤居士

给定一个目录，如何递归遍历这个目录，把文件夹的名称都打印出来

野藤居士

楼上的代码太乱了，没有格式呢

edisonlzk

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. 
    
16. If i=0 then
    
17. '遍历子文件夹
    
18. Set objSubFoldersCollection = objFolder.SubFolders
    
19. For each objInputSubFolder in objSubFoldersCollection
    
20. searchedFilePath= pathFind(objInputSubFolder,searchingFileName,fileType)
    
21. If searchedFilePath<>"" Then
    
22. Exit For
    
23. End if
    
24. Next
    
25. End If
    
26. pathFind = searchedFilePath
    
27. End Function

复制代码