MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

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

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ifahidalgo 31/3/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.
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  daniloreiis 1/4/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
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ifahidalgo 1/4/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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 1/4/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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:47