[Resolvido]Obter apenas nome do ficheiro de caminho completo

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

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

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

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

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

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

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.

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

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.

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

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.