[Resolvido]Capturar nome do aplicativo com extensão

Olá pessoal!

Caso já tenham discutido o assunto no fórum, me desculpem. Procurei por varias palavras chave e não encontrei.

O que preciso é de um código que capture o nome do aplicativo (arquivo front-end) com a extensão. Por exemplo: "Projeto.accdb"

Depois armazene em um campo texto, pois, preciso exibir essa informação do meu formulario principal.

Alguém tem algo parecido que possa me ajudar?

Desde já, obrigado!

Veja se é o que pretendes.

Olá Luis!

Era exatamente isso que eu precisava...

Muito obrigado!

Abraço!

Tinha dado o tópico como resolvido, porém, surgiu um probleminha...

No exemplo esta a funcionar no perfeito, mas no meu projeto esta apresentando erro e seta para a linha:

StringArray = Split(NomeBD, "\")

A mensagem de erro diz que a variavel StringArray não foi definida.

Sabes o que ocorre?

Defini a variavel conforme abaixo e funcionou:

Dim StringArray

Consegui resolver dessa forma. Caso haja outra forma mais eficaz por favor me informe.


Obrigado!

Desculpe pelas vias tortas que lhe passei, ainda estou aprendendo.
Estudei o Application e constatei o seguinte.

Se fosse o Mestre João Paulo, ele falaria assim.
"Veja o simples."
Nome evento ao carregar do seu formulário.

Me.SuaCaixadeTexto = Application.CurrentProject.Name 'Nome com extensão

ou

Me.SuaCaixadeTexto = Application.CurrentProject.FullName 'Caminho completo

Até mais.
Ps: Descupe a brincadeira mestre João Paulo.

Que é isso Luis, não tem nada que se desculpar.

Só tenho a te agradecer muito pela impagavel ajuda.

Eu também prefiro o simples. Pra mim quanto mais simples melhor.

E o simples que você me passou funcionou perfeitamente.

Obrigado!