[Resolvido]Importar TXT com outra extensão

Desde já agradeço a atenção,

Possuo um cógigo que importa vários arquivos TXT simultaneamente. No entanto, esta importação somente ocorre quanto a extensão do arquivo é TXT. Os arquivos originais tem a extensão BLOQUEADOS (com conteúdo de um arquivo TXT) ficando com o nome da seguinte forma:

YYYYMMDD0001.bloqueados

Ocorre que para fazer a importação é necessário rodar uma BAT para a troca da extensão do arquivo, o que esta dependendo de intervenção do usuário.

É possível importar diretamente um arquivo com a extensão .BLOQUEADOS? Lembrando que a especificação de importação só dá opção de extensão TXT para este tipo de arquivo.

Estou usando a seguinte linha para a importação:

DoCmd.TransferText acImportDelim, "Grupo_06", "Tabela024_inadimplencia", strOrigemInad & strFileInad, False, "", 1252

onde

strOrigemInad = "C:\CLIENTES\AreaDeImportacao\Inadimplencia\"
strFileInad = Dir$(strOrigemInad & "*.txt")

Windows 7, Access 2010

Agradeço a indicação de uma solução.

Amigo pelo jeito o access não aceita uma extensão diferente daquelas padronizadas por ele.

Uma alternativa pode ser renomeando os arquivos pelo VBA e depois da importação renomeando de novo se for o caso, ex:

Name "C:\nome_arquivo.bloqueados" As "C:\nome_arquivo.txt"

    Código de importação

           Name "C:\nome_arquivo.txt" As "C:\nome_arquivo.bloqueados"

Acho que o que importa é o formato do arquivo, e não a extensão.
Acontece que o seu código está localizando somente arquivos com a extensão .txt.
Tente alterar a linha abaixo, para buscar os arquivos com extensão "bloqueados":

strFileInad = Dir$(strOrigemInad & "*.bloqueados")

Eu até pensei nessa possibilidade, pois fiz uma tentativa pelo assistente do access selecionando um arquivo de extensão .desbloqueados e retornou erro dizendo que só aceitara os formatos xml, txt, html ...

Acreditava que se pelo assistente funcionasse, certamente pelo vba também (pelo que não tentei devido o fracasso usando o assistente).

Acho válido testar pelo vba, vai que ...

Vamos aguardar o marioAB.

Caros,

A tentativa da solução apresentada pelo Cláudio Más resultou o erro: "Erro em tempo de execução '31519': Não é possivel importar este arquivo".

A sugestão do :placeholder resolveu a questão.

Saudações e muito obrigado.

Ou funcionaria em versões antigas do Access, ou eu to ficando doido mesmo...