MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]retornar a extensão de um arquivo.

    Compartilhe

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    [Resolvido]retornar a extensão de um arquivo.

    Mensagem  ifahidalgo em Ter 31 Mar 2015, 21:41

    Senhores

    tenho o caminho completo da localização e o nome de um arquivo de quanquer extensão, em uma caixa de texto.
    Preciso pegar a extensão desse arquivo nessa caixa de testo e jogar em uma caixa de texto, qualquer.
    exemplo

    txtarquivo = "c:\teste\arquivo.jpg"
    txtext = ".jpg"

    Podem me ajudar.

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    retornar a extensão de um arquivo.

    Mensagem  daniloreiis em Qua 01 Abr 2015, 12:19

    Bom dia jovem!

    segue código abaixo:

    Código:

    Private Sub Comando0_Click()
    pega_extensao ("c:\teste\arquivo.jpg")
    End Sub
    Function pega_extensao(arquivo)
    pega_extensao = Mid(arquivo, InStr(1, arquivo, ".", 1), Len(arquivo))
    MsgBox pega_extensao
    End Function



    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]retornar a extensão de um arquivo.

    Mensagem  ifahidalgo em Qua 01 Abr 2015, 15:38

    fiz o seguinte

    criei um caixa de texto - txtext

    quando o campo txtarquivo é preenchido usei uma parte do seu codigo

    txtext = Mid(txtarquivo, InStr(1, txtarquivo, ".", 1), Len(txtarquivo))

    ficou perfeito.

    Obrigado.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3227
    Registrado : 15/03/2013

    Re: [Resolvido]retornar a extensão de um arquivo.

    Mensagem  ahteixeira em Qua 01 Abr 2015, 17:13

    Olá a todos,
    Apenas um pitaco, eu colocaria assim:

    Private Sub Comando0_Click()
    pega_extensao ("c:\teste\arq.ui.vo.jpg")
    End Sub

    Function pega_extensao(arquivo)
    pega_extensao = Mid(arquivo, InStrRev(arquivo, "."), Len(arquivo))
    MsgBox pega_extensao
    End Function


    Para o caso do nome do ficheiro também tenha ponto(s).
    Abraço

      Data/hora atual: Dom 11 Dez 2016, 01:17