MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 314
    Registrado : 13/10/2011

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

    Mensagem  ifahidalgo em Ter 31 Mar 2015, 20: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.
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    retornar a extensão de um arquivo.

    Mensagem  daniloreiis em Qua 01 Abr 2015, 11: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
    -------------------------------------------------------------------------------------------------------------------------------------------------

    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 : 314
    Registrado : 13/10/2011

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

    Mensagem  ifahidalgo em Qua 01 Abr 2015, 14: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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 01 Abr 2015, 16: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 20 Ago 2017, 22:11