o exemplo abaixo encontra todos arquivos prw dentro de uma pasta (busca nas subpasta) ... acho que pode te ajudar

'Funcionalidade.....: esta sub serve pegar todos os arquivos de projetos que estão na pasta de origem
'Referências de uso.: frmPrincipal
'Exemplo de uso.....: subPegaArquivos txtPastaOrigem.Text
'Destacar alterações:
Private Sub subPegaArquivos(strPastaOrigem 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
    'Chama recursivo enquanto tiver subpasta
    subPegaArquivos objFolder.Path
    '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
  Next
End Sub