请高手帮我完善，我想在我的文件夹里面找到活动单元格中的值

taocilliu

在文件夹里面寻找活动单元格中的值，文件夹里面还有其它文件夹，不知道后续怎么编写下去，我只会在一个文件夹中找，如果文件夹里面还有文件夹我就找不到了，请高手帮忙完善 感谢

Sub listallfiles222()
Dim strpath$ '申明路径
Dim fd As folder '创建一个filesystemobject对象和文件夹
Dim b%
Dim tst$
Dim fl As File
Set fso = CreateObject("scripting.filesystemobject")
strpath = ThisWorkbook.Path & "\" '设置要遍历的文件夹目录
Set fd = fso.getfolder(strpath) '设置fd文件夹
tst = "*" & ActiveCell.Value & ".jpg"
For Each fl In fd.Files '通过循环吧文件逐个放在数组内
  If fl.Name = tst Then
   Sheets(1).Cells(b, 1) = fl.Name
   b = b + 1
  End If
Next
End Sub

taocilliu

请高手帮忙

taocilliu

有高手在吗