[Resolvido]Armazenar apenas nome do arquivo e extensão

Boa tarde,

Estou utilizando este código, porém ele traz o caminho completo do arquivo (D:\Fotos\DSC_0125.jpg), gostaria que retornasse apenas o nome do arquivo e a extensão (DSC_0125.jpg).



Function AbrirRC() As String

' Requer referencia a Microsoft Office 11 Object Library
On Error GoTo PROC_ERR

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

fd.Title = Trim(login.Usuario) & " " & "selecione um diretório"
'fd.Filters.Add "Todos ficheiros", "*.*", 1

fd.Show

If (fd.SelectedItems.Count > 0) Then
Forms!Padrão2.local = fd.SelectedItems(1)
'MsbBox fd.SelectedItems(1), vbInformation, ""
Else
MsgBox Trim(login.Usuario) & " " & ", você não selecionou um diretório", vbExclamation, "Atenção"
End If

PROC_EXIT:
Exit Function

PROC_ERR:
DoCmd.Hourglass False
If err.Number = 3011 Then
LocalXML = ""
MsgBox ("Ficheiro inválido.")
Else
MsgBox err.Description
End If
Resume PROC_EXIT

End Function

Boas amigo,

Em um projeto utilizo uma função pega aqui no fórum do mestre JPaulo:



Ai pra buscar o arquivo utilizo:



A questão é que utilizo em outras partes esta função mas ta ai uma maneira caso não lhe caiba soluções melhores

Olá Luiz Carlos, como ficou a situação?
Os utilizadores do fórum merecem e agradecem o retorno.

Caso seja o caso, não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Obrigado! tudo foi resolvido!

Olá, Um ano depois é sempre bem-vindo o retorno.

Antonio Felipe, obrigado pela partilha.
Abraço