[Resolvido]Salvar nome de um arquivo sem a extensão

Tenho um form que abre um browser em uma pasta mas queria salvar somente o nome do arquivo num campo sem endereço completo e sem a extensão.aguem pode me ajudar.estou enviando o arquivo

Olá, seja bem vindo ao forum!

Em primeiro lugar, alterei o título do tópico para que seja o mais fácil possível de ser encontrado por outros usuários.

O arquivo não veio. Poste a função, ou seja, o código completo que está usando para podermos ver melhor por gentileza.

Meu caro me desculpe selecionei o modulo errado acho que agora esta indo o arquivo compactado!obrigado

Nele costa a abertura entre do browser entre outros.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!

Me desculpe meu caro e que estou com pressa e nao atentei pra suas regras, mas tudo bem vou reformular minha duvida e entro em contato.Obrigado

No módulo fFindOpenImportFile tem uma instrução que coloca o nome do arquivo com a extensão em um textbox chamado tbFileName. A instrução é essa:

    ' Find the file name.
    sFileName = Mid$(sFullName, Len(sPath) + 4)
    tbFileName = sFileName

Alterando ela um pouquinho, podemos usar a instrução Split para dividir o nome pelo ponto que o separa da extensão:

    ' Find the file name.
    sFileName = Mid$(sFullName, Len(sPath) + 4)
        Dim NomeApp As Variant
            NomeApp = Split(sFileName, ".")
    tbFileName = NomeApp(0)

Faça o teste aí.

PS.: Pedimos a gentileza de alterar o texto da Mensagem nº4 para adequá-lo às regras do forum.

Muito obrigado amigo ficou muito bom obrigado mesmo.

Grato pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez eu clico.