Pessoal,
No código abaixo faço uma pesquisa por um nome de arquivos e trago os arquivos encontrados em uma célula. Porém, esse código só funciona na pasta principal. Eu gostaria de buscar esse código também nas subpastas desse caminho. Parece ser simples mas não estou conseguindo resolver.
Sub verifica()
Dim vtabela_bd(20, 10) As String
Dim i As Integer
Dim varquivo As String
'atualiza legenda
i = 4
Do While i <= 30
If PlanTabela_bd.Cells(i, 3) = "sim" Then
PlanVerificar.Cells(1, i) = PlanTabela_bd.Cells(i, 1)
Else
PlanVerificar.Cells(1, i) = "X"
End If
i = i + 1
Loop
'legenda atualizada
If Cells(ActiveCell.Row, 2) = "" Then Exit Sub
'tirar os espaços do código
PlanVerificar.Cells(ActiveCell.Row, 2) = Replace((PlanVerificar.Cells(ActiveCell.Row, 2)), " ", "")
i = 4
'localizar os arquivos
Do While i <= 30
PlanVerificar.Cells(ActiveCell.Row, i) = "" 'apagar celula
If PlanTabela_bd.Cells(i, 3) = "não" Then GoTo não_procurar:
varquivo = Dir(PlanTabela_bd.Cells(i, 2) & "\*" & PlanVerificar.Cells(ActiveCell.Row, 2) & "*") 'procurar arquivo
'preencher celula
PlanVerificar.Cells(ActiveCell.Row, i) = varquivo
Do While varquivo <> ""
PlanVerificar.Cells(ActiveCell.Row, i).Select
varquivo = Dir
If varquivo <> "" Then PlanVerificar.Cells(ActiveCell.Row, i) = PlanVerificar.Cells(ActiveCell.Row, i) & Chr(10) & varquivo
Loop
não_procurar:
i = i + 1
Loop