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

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

    Mensagem  ifahidalgo em 31/3/2015, 13: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 : 330
    Registrado : 14/02/2011

    retornar a extensão de um arquivo.

    Mensagem  daniloreiis em 1/4/2015, 04: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 : 317
    Registrado : 13/10/2011

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

    Mensagem  ifahidalgo em 1/4/2015, 07: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 : 4650
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 1/4/2015, 09: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: 13/12/2017, 11:35