FileSystemObject

Private Sub subPegaArquivos(strPastaOrigem As String, strPriCarac As String)
'Cria instância do FSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolderOrigem = objFSO.GetFolder(strPastaOrigem)
Set objFoldersSubOrig = objFolderOrigem.SubFolders
'Para cada pasta na coleção de subpastas da pasta origem
For Each objfolder In objFoldersSubOrig
    'se procura arquivos nas pastas que não iniciam pela string 'strPriCarac'
    If Left(objfolder.Name, Len(strPriCarac)) <> strPriCarac Then
      'Chama recursivo enquanto tiver subpasta
      subPegaArquivos objfolder.Path, strPriCarac
      'Para cada arquivo na coleção de arquivos da pasta
      For Each objFile In objfolder.Files
        'Verifica se o arquivo encontrado é do tipo PRW
        If ((LCase(Right(objFile.Path, 3))) = "prw") Then
          'Atualiza RichTextBox -> lista arquivos processados
          rtbArquivosProcessados.Text = rtbArquivosProcessados.Text & objFile.Path & Chr(13) & Chr(10)
          'Incrementa variável número de arquivos do projeto
          strProjetoNArquivos = strProjetoNArquivos + 1
          'Concatena arquivo na variável de projetos
          strProjetoArquivos = strProjetoArquivos & "         File " & Mid(objFile.Path, 3) & Chr(13) & Chr(10) & "             Type=T" & Chr(13) & Chr(10) & "         End" & Chr(13) & Chr(10)
          'Atualiza labels
          lblLegendas(3).Caption = "Processando arquivo.: " & objFile.Name
          lblLegendas(4).Caption = "Arquivos processados: " & strProjetoNArquivos
          'Atualiza formulário
          Me.Refresh
        End If
      Next
    End If
Next
End Sub