一段关于在所有子目录中进行搜索指定文件夹并返回路径的代码的求助，请大侠出手相助。

jimmy888

大概是：在当前工作表目录及其所有子目录下判断指定文件夹是否存在，存在则返回路径，不存在则标示出来。请大虾帮一下小弟，万分感谢，详见附件。

蓝桥玄霜

请见代码。

jimmy888

蓝桥玄霜 发表于 2018-3-1 11:52
请见代码。

谢谢，谢谢大侠相助，我立马试试。

jimmy888

蓝桥玄霜 发表于 2018-3-1 11:52
请见代码。

首先感谢大侠百忙中抽时间为小弟的问题提供方案，大侠的代码我已经测试，但是两个文件夹都存在的情况下，它怎么也显示其中一个“不存在”，小弟由于是初学者，代码也详细研究了几遍，却始终未明白个中因由，还请大侠再抽时间为小弟指点一二——万分感谢。详见附件。

蓝桥玄霜

1. Sub main()
   
2. Dim fp As String, Arr, i&, j&, k
   
3. Application.ScreenUpdating = False
   
4. Set Fso = CreateObject("Scripting.FileSystemObject")
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. fp = ThisWorkbook.Path & ""
   
7. Call GetFiles(fp)
   
8. k = d.Keys
   
9. Arr = [a1].CurrentRegion
   
10. For i = 2 To UBound(Arr)
    
11.     For j = 0 To UBound(k)
    
12.         If InStr(k(j), Arr(i, 1)) Then
    
13.             Cells(i, 2) = k(j): GoTo 100
    
14.         End If
    
15.     Next
    
16.     Cells(i, 2) = "不存在"
    
17. 100:
    
18. Next
    
19. Application.ScreenUpdating = True
    
20. End Sub

复制代码

jimmy888

蓝桥玄霜 发表于 2018-3-2 10:30

感谢大侠出手帮助，代码已测试成功。万分感谢！我会努力好好学习