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

    [Resolvido]Obter apenas nome do ficheiro de caminho completo

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  Kaynan 20/2/2021, 23:03

    Ola pessoal é o seguinte:
    Tenho esse código em um botão que o noob me orientou para achar o caminho onde tenho uma pasta com varios PDFs,onde esse caminho fica gravado em um campo da tabela STATUS,funciona perfeitamente.
    Mas o que preciso agora em um outro botão um código que me traga só o nome desse PDF.
    Tipo esse código abaixo me traz em uma txt assim: C:\Users\Abegahil\Documents\TEX\TEX WILLER\02 -TEX WILLER ESPECIAL.cbr
    é o caminho total dessa revista.
    O que quero que me traga assim:TEX WILLER ESPECIAL.cbr só o nome.
    Tem jeito?
    Abç.


    Código:
    Private Sub BtRev_Click()
    Dim strCaminho As String, strPastaInicial As String
       strPastaInicial = "C:\Meus Documentos"
       strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
       "Arquivos gráficos (*.cbr; *.pdf)" & vbNullChar & "*.cbr; *.pdf")
       If Len(strCaminho) > 0 Then
           Me.txtRev = strCaminho
           Me.txtRev = Me.txtRev
       End If

    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  ahteixeira 20/2/2021, 23:17

    Olá Abegahil Silva,

    Será algo assim, teste e ajuste ao seu projeto:

    Código:
    Sub xTeste()
    'ahteixeira 2021 para MAximoAccess
    Dim strTotal, strFicheiro As String
    Dim iTotal, iPosicao

        strTotal = "C:\Users\Abegahil\Documents\TEX\TEX WILLER\02 -TEX WILLER ESPECIAL.cbr"
       
        iTotal = Len(strTotal)
        iPosicao = InStrRev(strTotal, "\")
       
        srtFicheiro = Right(strTotal, iTotal - iPosicao)
       
        MsgBox srtFicheiro, vbInformation, ""

    End Sub

    Nota: titulo do topico ajustado para melhor pesquisa.

    Abraço
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  Kaynan 20/2/2021, 23:57

    Ola Teixeira,O código não me da a opção de ir até a pasta onde esta as revistas.
    Só vem esse nome 02 -TEX WILLER ESPECIAL.cbr
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  ahteixeira 21/2/2021, 00:51

    Olá Abegahil Silva,

    É apenas um exemplo de como obter, como referi tem que ajustar ao seu projeto.
    Deve compreender o que exemplifiquei e começar a por s mão na massa.

    Estou no tablet, mas será colocar o código que partilhei depois do IF do seu código.
    Depois alterar

    Código:
    strTotal = strCaminho

    Abraço
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  Kaynan 21/2/2021, 01:52

    Assim ele acha o caminho, mas ao clicar no arquivo vem a mensagem "Argumento ou chamada de procedimento invalida"



    Private Sub btRev_Click()
    Dim strCaminho As String, strPastaInicial As String
    strPastaInicial = "C:\Meus Documentos"
    strCaminho = Buscar(Me.hwnd, "Inserir revista", strPastaInicial, _
    "Arquivos gráficos (*.cbr; *.pdf)" & vbNullChar & "*.cbr")
    If Len(strCaminho) > 0 Then

    'Sub xTeste()
    'ahteixeira 2021 para MAximoAccess
    Dim strTotal, strFicheiro As String
    Dim iTotal, iPosicao

    'strCaminho = "C:\Users\Abegahil\Documents\TEX\TEX WILLER\02 -TEX WILLER ESPECIAL.cbr"

    iTotal = Len(strTotal)
    iPosicao = InStrRev(strCaminho, "\")

    srtFicheiro = Right(strCaminho, iTotal - iPosicao)

    MsgBox srtFicheiro, vbInformation, ""

    Me.txtRev = strCaminho
    Me.txtRev = Me.txtRev
    End If
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  ahteixeira 21/2/2021, 10:29

    Olá Abegahil Silva,

    Claro que dá erro, esqueceu-se de colocar o código que indiquei na mensagem nr. 4 .
    Código:
    strTotal = strCaminho

    Veja se é o pretendido:
    Código:
    Private Sub btRev_Click()
       Dim strCaminho As String, strPastaInicial As String
       Dim strTotal, strFicheiro As String
       Dim iTotal, iPosicao
       
       strPastaInicial = "C:\Meus Documentos"
       strCaminho = Buscar(Me.hWnd, "Inserir revista", strPastaInicial, _
       "Arquivos gráficos (*.cbr; *.pdf)" & vbNullChar & "*.cbr")
       
       If Len(strCaminho) > 0 Then
           strTotal = strCaminho
           iTotal = Len(strTotal)
           iPosicao = InStrRev(strCaminho, "\")
           
           srtFicheiro = Right(strCaminho, iTotal - iPosicao)
           
           MsgBox srtFicheiro, vbInformation, ""
           
           Me.txtRev = strCaminho
           Me.txtRev = Me.txtRev
       End If
    End Sub
    Por último, este tema já foi abordado no fórum, veja:
    https://www.maximoaccess.com/t8924-resolvidoextrair-nome-do-arquivo-em-uma-sequencia-de-pasta
    https://www.maximoaccess.com/t17356-resolvidocapturar-apenas-o-caminho-do-arquivo-selecionado

    Abraço
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  Kaynan 21/2/2021, 11:53

    Bom dia Teixeira,o que quero é que esse nome da revista fique gravado no campo da tabela que tem o nome txtRev,desse jeito continua ficando gravado o caminho inteiro.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  ahteixeira 21/2/2021, 12:05

    Olá Abegahil Silva,

    A sua dúvida neste tópico era obter o nome do ficheiro de um caminho completo.
    Já ficou demonstrado como o fazer.

    Se a dúvida ficou esclarecida, deve encerrar o tópico.
    Não devemos misturar questões, se tem outra dúvida abra um novo tópico.

    Abraço
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  Kaynan 21/2/2021, 12:35

    Tenho esse código em um botão que o noob me orientou para achar o caminho onde tenho uma pasta com varios PDFs,onde esse caminho fica gravado em um campo da tabela STATUS,funciona perfeitamente.
    Mas o que preciso agora em um outro botão um código que me traga só o nome desse PDF.(e que fique gravado na tabela)

    Desculpa,Mas bah, faltou mais aquelas palavrinhas para entender melhor.
    Mas tenho que abrir outro tópico pra isso.

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  ahteixeira 21/2/2021, 18:55

    Olá Abegahil Silva,

    Sim, na minha opiniãao ficou demnostrado como obter o nome do ficheiro.
    Também já indiquei mais dois exemplos. (é bom perceber como foi efetuado e comprrender o que o código está a fazer).

    Se está com dificuldades em implementar deve disponibilizar projeto funcional com parte envolvida na questão para se analisar e ajudar.

    Abraço

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Obter apenas nome do ficheiro de caminho completo Empty Re: [Resolvido]Obter apenas nome do ficheiro de caminho completo

    Mensagem  Kaynan 21/2/2021, 20:14

    Ok mestre esta parte esta resolvida,muito obrigado não sou programador minha profição é bem diferente,alguma coisinha que faço no access é mérito dos mestres aqui do forum.
    Vou abrir outro tópico com minha dúvida porque sou péssimo em ler os códigos.
    Abraço amigo.

      Data/hora atual: 14/6/2021, 07:20